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FOREWORD 


With the renewed interest in propellers as means of 
obtaining thrust and fuel efficiency in addition to the 
increased utilization of the computer, a significant amount of 
progress has been made in the development of theoretical models 
to predict the performance of propeller systems. Inherent in 
the majority of the theoretical performance models to date is 
the need for airfoil data banks which provide lift, drag, and 
moment coefficient values as a function of Mach number, angle- 
of-attack, maximum thickness to chord ratio, and Reynolds 
number. Realizing the need for such data, a study was initiated 
to provide airfoil data banks for three commonly used airfoil 
families in propeller design and analysis. The families chosen 
consisted of the Clark-Y, NACA 16 series, and NACA 4 digit 
series airfoils. The following Chapters briefly describe the 
various components of each computer code, the source of the data 
used to create the airfoil data bank, the limitations of each 
data bank, program listing, and a sample case with its 
associated input-output. Each airfoil data bank computer code 
has been written to be used on the Amdahl Computer system, which 
is IBM compatible and uses Fortran language. 
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I. CLARK* Y AIRFOIL DATA BANK 


1 . I ntroduct 1 on 

The Clark-Y airfoil data bank has been created to calculate 
the lift, drag, and moment coefficient for a specified Clark-Y 
airfoil at a given ang 1 e-of -attack , Mach number, and Reynolds 
number. Since the Clark-Y airfoil family was created before the 
advent of the present NACA airfoil families with its attendent 
superposition of camberline and thickness distribution^-^, there 
is an i nterre 1 at i onsh i p between the design lift coefficient 

(C LD ) and maximum thickness to chord rat i o (t/c)max. That is, 
the airfoil is defined by either a value of (t/c)max or C^p T anc j 
the unknown parameter is calculated based upon a previously 
given correlation.^ 2 ^ In addition, the data bank calculates 
the airfoil section coordinates and moments of inertia if 
desired. The methods used to calculate various airfoil 
parameters have been obtained from tabular and graphical data 
from Haines and Monagwan ^ ^ , and MacDouga 1 1 ^ ^ . Moment data 
were obtained and placed into the airfoil data bank using the 
airfoil analysis computer program by Smetana, et. by 
conducting a numerical analysis of representat i ve Clark-Y 
airfoil sections. Comparisons were also conducted with the 
Smetana et.al. airfoil analysis computer code and the Clark-Y 
airfoil data bank for 69 cases. C, f c d , and C m were compared 
for conditions ranging in Mach numbers from 0.1 to 0.5, angle- 
of-attack (a) from -1.7 to 5.3°, and (t/c)max 0.05 to 0.30. The 
% differences between the Clark-Y airfoil data bank and the 



Smetana airfoil analysis computer code ranged from — 1 5% to 107* 
as shown in Table I. 

The computer code is divided into various subroutines in 
order to simplify the computations, which contain the bulk of 
the tabular data. A description of the subroutines ATMCON , 
CLTMAX, CYCOOR, CLCD, and CMFF is provided in the following 
Sect ions. 

2 . I nput 

The parameters used as input to the program have been 
summarized in Table II. These parameters include the Mach 
number (s), angl e(s)~of-attack referenced from the longest chord 
line, altitude, chord length in feet, maximum th i ckness-to-chord 
ratio, and the number of Mach numbers and ang 1 es-of-attack to be 
evaluated. Parameters indicating whether the airfoil 
coordinates, moments of inertia, and moment coefficients are to 
be calculated and presented in the program output are also to be 
designated, as well as the design lift coefficient and/or 
( t/c )max . 

3 . Main Program 

The main program works as an operating system which routes 
input data to the various subroutines which are described in the 
following Sections. The output from the subroutines is passed 
back to the main program and output. It should be noted that 
all interpolation in the computer code is done by the Lagrangian 
method . 
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4. 


Subroutine ATMCON 


ATMCON calculates the temperature, pressure, speed of 

sound, density, and viscosity for a specified altitude using the 

( €>) 

empirical equations of Minzer, et.al. as given by 

Anderson*- 7 ^. These equations have been curve fitted from the 
available data of the ARDC 1959 standard atmosphere, and 

divide the atmosphere into two regions, ie„, from sea level to 
11,000 meters, and 11,000 to 25,000 meters. These equations are 
given as: 

Sea level to 11,000 meters . 

Temp - 288.16 - 0.0065 h I - 1 

P= ( 101325)/( l/Temp/288. 16)~ 5 ’ 2457 ' 1-2 

11,000 meters to 25,000 meters . 

Temp =216.66 1-3 

P = (22,703.59) exp( 0.0001547(h-l l ,000) 1-4 

where h is in meters. Temperature is in °K, and pressure, P is 
2 

in N/m . The values of P and Temp are converted by: 

Temp = (Temp - 273.15) 9/5 + 491.67 1-5 

P = 2116.2 P/101325 1-6 

where Temp and P are now in units of °R and lbs/ft 2 . Values of 
density, viscosity, and speed of sound are then calculated by: 
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Density = ( Pressure )/( 1 7 1 8 )( Temp ) 


1-7 


Viscosity = 3.5 x 10 7 ( Temp/492 ) 1 ‘ 5 ( 690/ ( Temp+ 1 98 ) ) 1-8 

Speed of Sound =T^j( (403.2) (Temp) ) /0 . 3047* 1-9 

where density is in lb-ft 2 /sec 4 , viscosity in lb-sec/ft 2 , and 
speed of sound in ft/sec. 


5. Subroutine CLTMAX 

CLTMAX calculates the design lift coefficient as a function 
of (t./c)max, or (t/c)rnax as a function of design lift 
coefficient depending on which is the unknown parameter. Using 
the data tabulated by Pinkerton and Greenberg ^ 2 ^ , an empirical 
relationship has been determined in which -can be found by 
specifying the (t/c)max, i.e.. 



I- 1 0 


If the desired lift coefficient NCLD is known, then the 
following equations are used to determine the corresponding 
(t/c)max , i.e., 

NTMAX = 0.1241 NCLD 2 + 0.1688 NCLD I - 1 1 

The value of the low speed lift-curve slope, a Qj s a 1 5Q 
determined for a given (t/c)max by i nterpo 1 at i on of data shown 
in Figure 1 -Table III and stored in FUNCTION AO I OF. The 
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correlations to the low speed lift-curve slope for thickness is 
given by the equat i on : 

"" """fr 

1- (t/c )max^ 1-12 

With the values of a^ and CLD, the zero- 1 i ft ang 1 e-of-attack can 
be calculated using the expression: 

a L=0 = C LD /(_a o ) 1-13 

6. Subroutine CYCOOR 

CYCOOR gives the dimensions and section properties for a 
Clark-Y airfoil for a specified thickness and chord. This 
subroutine also calculates the moment of inertia for the major 
and minor axes if required, by the following equations: 

Major Moment of Inertia = 0.0418 (Chord) 4 ((t/c)max) 1-14 
Minor Moment of Inertia = 0.0454 (Chord) 4 ((t/c) max) 3 1-15 

The coordinates are scaled to the required thickness to chord 
ratio by utilizing the data listed in Tables IV and V. The 
airfoil coordinates are non-d i mens i ona 1 i zed with respect to the 
chord, where the upper and lower chordwise X coordinate 
locations are identical resulting in one column in the output 
data format. The airfoil coordinates are also supplied in the 
output as the actual coordinates as specified by the chord. 
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7. Subroutine CLCD 


CLCD calculates C^, C^, C j /C^ and critical Mach numbers for 
lift and drag divergence. The subroutine consists of data 
tables from References 2 and 3 from which desired values are 
obtained by i nterpo 1 at i on using the input parameters. Cj is 
the low speed incompressible lift coefficient and is defined by 
C lQ = f(a Q , a Q ) » where a Q is the eng 1 e-of-attack relative to the 
zero lift 1 ine, and a Q is the low speed 1 ift-curve slope. If 
the airfoil section (t/c)max is greater than 0.167*, then a Q is 
interpolated from Table VI. For (t/c)max less than or equal to 
0. 167,, a critical Mach number is determined, where the critical 
Mach number has been taken as the point at which departs from 
the Prandt. 1 -G 1 auert relation as given by: 


= C 



a o /Vl-M‘ 


a 


o 


1-16 


where is the lift coefficient for M less than the critical 
Mach number (M^). The critical Mach number for lift, M^, is 
found from Table VII. As noted, if M is less than then the 
Prandt 1 -G 1 auert relation accounts for compress i b i 1 i ty effects. 
If the Mach number is greater than the critical value, an 
incremental lift coefficient, Cj f s added to account for the 
lift coefficient divergence from the low speed value. Cj is 
found in Table VIII as a function of i n either case (M 

> or M < Ml ) * the lift curve slope is found by FUNCTION AOF 
which uses the data contained in Table XI. 
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As in the case of Cj „ a critical Mach number Mg is defined* 
where Mp is determined by Tables X and XI as a function of a Q 
and (t/c)max. If the Mach number is below the critical value: 

C do ~ B o (a) C Q (t/c)max 1-17 

where f s the low speed drag coefficient for M < Mq. 0 o (a o ) 
is a function dependent only on ang 1 e-of-attack and is found in 

Table XII, whereas C o (t/c) is found in Table XIII and is a 
function only of (t/c)max. When M becomes larger than Mp, the 
drag coefficient departs from the low speed relationship and is 
given by. 


C d “ C do + c ds 


1-18 


where is the incremental drag coefficient due to 

compressibility and is found from Table XIV as a function of ( M- 
Mp) 0 If the airfoil section thickness is less than or equal to 
C ds i 5 taken as zero* For airfoil section thicknesses 
greater than 9% and a Q greater than 5°-~or for airfoil sections 
thicker than 16%--C^ s can no longer be treated as independent of 
all variables except (M-Mp) as given in Table XIV. In these 
case, plots of as a function of M are used directly* and are 
used in tabular form in subroutine FUNCTION CD9F - CD35F as 
given in Figures 2 through 16* 
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8 . Subroutine Function CMFF 

FUNCTION CMFF ca 1 cu 1 ates the moment coefficient, about the 
leading edge or quarter chord location of the airfoil. The 
variation of the moment coefficients with lift coefficient was 
first determined for a representative number of Clark-Y airfoil 


(t/c )max 

va 1 ues 

using the airfoil 

ana 

lysis code 

of Smetana, 

et.al. (5 > 

A 

1 i near re 1 at i onsh i p 

was 

determ i ned 

between 

the 

1 i ft and 

moment 

coefficient, and the var i at i on of the slope 

and 

i ntercept 

w i th 

varying (t/c) max 

was 

determ i ned . 

Quadrat i c 

equat i ons 

were 

then used to fit 

the 

resu 1 t i ng 

curves , 

and 


substituted into the 1 i near re 1 at i onsh i ps to obtain the final 
equations, e.g., the equation for the moment coefficient about, 
the leading edge, expressed as: 


CM ] 0 = C t/c (-0 . 3065 C^ + 0 . 875 ) - ( t/c ) max (0.1514 Cj + 
0.705) -0.23993C, + 6.25 x 10 " 5 1-19 

and the moment coefficient about the quarter chord, given by: 

CM qc =(~0.44 C, + 1.15) ( t/c ) max 2 - ( 0 . 0993 C ] + 0.785) + 

0.0036 C ] - 0.00638 1-20 


Compress 1 b i 1 i ty effects are accounted for by the Prandt 1 -G 1 auert 
factor by the relationship: 



1-21 
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1-22 


CM c/4 = ^ CM c/4>o /V l ” M2 

where (CM^ e )o and ^ CM c/4^o are the incompressible moment 
coefficients about the airfoil leading edge and quarter chord, 
respect, i ve 1 y . 

9. Limitations 

The maximum lift coefficient and corresponding angle-of- 
attack cannot be determined since the program assumes a constant 
value for the lift-curve slope, and does not recognize stall. 
Also, the following limits are suggested for the input 

parameter s : 

0.06 < ('t/c) max < 0.22 0.33 < C LD < 0.90 

-1.50° < a < 11° 0.01 < M < 0.80 

These limits can be exceeded slightly and the computer program 
extrapo 1 at i on will still predict accurate aerodynamic values. 
However, when the specified limits have been exceeded by a 
significant amount, flags are contained in the printed output to 
alert the User that the airfoil data bank tabular data has been 
exceeded. For example, these take the form of: 

T/OO. 300000 IS GREATER THAN (T/C)MAX= 0.220000 OF SUBROUTINE 
CLTMAX 
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MACH NO. =0.950000 IS GREATER THAN MACH NO. ( MAX) =0 .800000 ■ OF 


FUNCTION THKSLP 

ALPHAO=ALPHA-ALPHLO=27 . 712020 IS GREATER THAN 

ALPHADMAX= 11 .000000 OF FUNCTIN CDFF 

ALPHAD=ALPHA-ALPHLO=27 . 712020 IS GREATER THAN 

ALPHAOMAX=l 1 ,000000 OF FUNCTION CDFF 

T/C=0. 300000 IS GREATER THAN ( T/C ) =0 . 250000 OF FUNCTION CMFF 

1 0 . Program L i st i ng 

The program has been written in Fortran* and a listing is 
provided in Appendix I. The computer code listing contains 
numerous comment statements, which will assist the User in its 
ut i 1 i zat i on and app 1 i cat i on . 

1 1 . Output 

The numerical output consists of the lift and drag 
coefficient at a specified ang 1 e-of-attack and Mach numbers, in 
addition to the design lift coefficient and (t/c)max. The User 
may choose whether the (X,Y) airfoil coordinates, moments of 
inertia, and moment coefficients are to be calculated and 
included in the computer output through proper input parameter 
selection as discussed earlier. Two cases, contained in 
Appendix II, indicate a sample input and output of the C 1 ark--Y 
airfoil data bank computer code. 
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The first case shown in Appendix II* is for Mach numbers of 

o o 

0.0* 0.1, 0.2 and 0.4 and a range of oc's from -1 to 5 . The 

(t/c)max has been specified at 11.70 resulting in a CLD of 
.505381 The parameters have been set to provide the airfoii 
coordinates* moment coefficient about the quarter chord* and the 
moments of inertia. The second case corresponds to airfoil 
parameters and a flight condition which exceeds the suggested 
range of input values, and the case has been run to exhibit all 
flags . 


11 



References 


1. Abbott, I.H., and von Doenhoff A.E., Theory of Wing 
Sect i ons , Dover Publications, Inc., 1959.- 

2. Pinkerton, R.M., Greenberg, H. , "Aerodynami c Character i st i cs 
of a Large Number of Airfoils Tested in the Var i ab 1 e-Dens i ty 
Wind Tunnel", NACA TR-628, 1938. 

3. Haines, A.B., and Monagwan, R.J., "High Speed Lift and Drag 
Data for Propeller Performance Calculations", Roya 1 Aircraft 
Establishment, Reports and Memorandum No. 2036, 1945. 

4. MacDougall, A.R.C., "Revised High-Speed Lift and Drag Data 
for Clark Y Sections for Propeller Performance Ca 1 cu I at i ons" , 
Royal Aircraft Establishment, Reports and Memorandum No. 2474, 
1947. 

5. Smetana, F.O., Summey, D.C., Smith, N.S., and Carden, R.K., 
"Light Aircraft Lift, Drag, and Moment Pred i ct i on--A Review and 
Analysis", NASA CR-2523, May 1975. 

6. Minzner, R.A., Champoin, K.S.W., and Pond, H.L., "The ARDC 
Model Atmosphere", Air Force Cambridge Research Center Report 
No. TR-59-267 , 1959. 

7. Anderson, Jr., J.D., Introduction to Flight , McGraw-Hill 
Book Company, 1978. 


12 



Table I. Comparison Cases for Clark-Y Airfoil. Data Bank. 


t/c 

Mach 

a 

Calculated 

Values 

Clark-Y 


"k : 



No . 


c i 

c d 

C 1 

C d 

c i 

o 

d 


0.1 

- 1.7 

0.002725 


■ HIM II — 


waaamm 

l/.l — 


0.1 

5.3 

0.694748 

0.011917 

0.794875 

0.00962 

- 14.4 

23.9 


0.2 

- 1.7 

0.072763 

0.007495 

0.062044 

0.00767 

14.7 

- 2.3 

0.05 

0.2 

5.3 

0.786452 

0.011221 

0.807199 

0.00962 

- 2.6 

14.3 


0.3 

- 1.7 

0.073496 

0.006732 

0.063726 

0.00767 

13.3 

- 13.93 


0.3 

5.3 

0.844358 

0.010975 

0.829078 

0.00962 

1.84 

14.09 


0.4 

- 1.7 

0.073592 

0.006524 

0.066328 

0.007670 

9.9 

- 17.6 


0.4 

5.3 

0.878836 

0.010911 

0.862932 

0.00962 

1.84 

13 . 42 ... 

0.10 

0.1 

- 1.7 

0.278982 

0.008901 

0.279050 

0.008683 

- 0.02 

2.51 


0.1 

5.3 

0.976437 

0.014454 

0.976244 

0.013603 

0.02 

6 . 26 


0.1 

- 1.7 

0.466541 

0.011643 

0.48055 

0.010474 

- 2.92 

11.16 


0.1 

5.3 

1.280765 

0.019659 

1.181261 

0.017041 

7.8 

13.3 

0.15 

0.2 

- 1.7 

0.473774 

0.009326 

0.488001 

0.010474 

- 2.92 

- 10.96 


0.2 

5.3 

1.147843 

0.017278 

1.199576 

0.017041 

- 4.31 

1.39 


0.3 

- 1.7 

0.583900 

0.008770 

0.501228 

0.010474 

14.2 

- 19.4 


0.3 

5.3 

1.178956 

0.016847 

1.232091 

0.017041 

- 4.31 

- 1.14 


0.4 

- 1.7 

0.618247 

0.008767 

0.521694 

0.010474 

15.6 

- 19.5 


0.4 

5.3 

1.227096 

0.018190 

1.282401 

0.017041 

- 4.31 

6.74 


0.2 

- 1.7 

0.626981 

0.012140 

0.653970 

0.015293 

- 4.05 

- 20.62 


0.2 

1.0 

0.873751 

0.01213 

0.91321 

0.019054 

- 4.32 

- 36.34 


0.2 

3.0 

1.056545 

0.015714 

1.105609 

0.021678 

- 4.44 

- 27.51 


0.3 

1.0 

0.894435 

0.011339 

0.921633 

0.019054 

- 2.63 

- 40.49 

o 

Cs! 

O 

0.3 

3.0 

1.085182 

0.015443 

1.115808 

0.021678 

- 2.74 

- 28.76 


0.4 

1.0 

0.93408 

0.012828 

0.921633 

0.019054 

1.35 

- 32.68 


0.4 

3.0 

1.129494 

0.015624 

1.115808 

0.021678 

1.23 

- 27.93 


0.5 

1.0 

0.988537 

0.014593 

0.930669 

0.026556 

6.22 

- 45.05 


0.5 

3.0 

1.195344 

0.016856 

1.126747 

0.038693 

6.09 

- 56.44 


0.2 

5.3 

1.266757 

0.023754 

1.326869 

0.024840 

- 4.53 

- 4.37 


0.1 

- 1.7 

0.725286 

0.021237 

0.779343 

0.019192 

- 6.94 

10.66 


0.1 

5.3 

1.797551 

0.034872 

1.396043 

0.025846 

22.3 

25.9 


0.2 

- 1.7 

0.736531 

0.017911 

0.779343 

0.019192 

- 5.49 

- 6.67 

0.25 

0.2 

5.3 

1.869015 

0.030952 

1.396143 

0.025846 

25.3 

16.5 


0.3 

- 1.7 

0.756495 

0.017347 

0.775975 

0.019192 

- 2.51 

- 9.61 


0.3 

5.3 

1.962380 

0.031499 

1.390010 

0.025846 

29.2 

17.9 


0.4 

- 1.7 

0.787385 

0.019823 

0.775975 

0.019192 

1.47 

3.29 


0.4 

5.3 

2.087362 

0.034636 

1.390010 

0.025846 

33.4 

25.4 


0.1 

1.0 

1 .066446 

0.026865 

1 .011948 

0.023712 

5.39 

13.3 

0*30 

0.1 

3.0 

1 .229262 

0.028877 

1 .159548 

0.025712 

6.01 

12.31 


0.2 

1 .0 

1 .082981 

0.022968 

1 .011948 

0.023712 

7.02 

-3.14 


0.2 

3.0 

1 .248321 

0.025095 

1 .159548 

0.025712 

7.76 

-2.40 
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Table I. (cont . ) 


t/ c 

Mach 

a 

NCState 

Values 

Clark-Y 

Values- 

A% 



No. 


CM le 

CM c/4 . 

CK le 

CM ,, 
c/4 

:cm, 

le 

CM c/4 


0 .1 

-1.7 

-0.037527 

-0 .036915 

-0.048411 

-0.030297 

29.0 

17.9 


0.1 

5.3 

-0.213142 

-0.039922 

-0.231501 

-0.032115 

8.6 

19.6 


0.2 

-1.7 

-0.055661 

-0 .037534 

-0.049401 

-0.030770 

11.2 

18.0 

0.05 

0.2 

5.3 

-0.237509 

-0.041478 

-0.238213 

-0.032644 

0.3 

21.3 


0.3 

-1.7 

-0.056608 

-0.038292 

-0.051178 

-0.031608 

9.6 

17.5 


0.3 

5.3 

-0.245588 

-0.042193 

-0.250364 

-0.033586 

1.4 

20.4 


0.4 

-1.7 

-0.057733 

-0.039392 

-0.053973 

-0.032906 

6.5 

16.5 


0.4 

5.3 

-0.256672 

-0.043104 

-0.269758 

-0.035048 

5.1 

18.7 


0.1 

-1.7 

-0.239095 

-0.107546 

-0.216611 

-0.096162 

9.4 

10.6 


0.1 

5.3 

-0.442770 

-0.123494 

-0.406430 

-0.111089 

8.2 

10.0 


0.2 

-1.7 

-0.248945 

-0.111580 

-0.222019 

-0.097814 

10.8 

12.3 

0.15 

0.2 

5.3 

-0.460841 

-0.128497 

-0.417770 

-0.113207 

9.3 

11.9 


0.3 

-1.7 

-0.264226 

-0.118381 

-0.231775 

-0.100760 

12.3 

14.9 


0.3 

5.3 

-0.479964 

-0.132887 

-0.438280 

-0.116998 

8.7 

12.0 


0.4 

-1.7 

-0.278711 

-0.124283 

-0.247258 

-0.105347 

11.3 

15.2 


0.4 

5.3 

-0.504056 

-0.138172 

-0.470972 

-0.122939 

6.6 

11.0 


0.1 

-1.7 

-0.437634 

-0.182717 

-0.354693 

-0.156754 

19.0 

14.2 


0.1 

5.3 

-0.666768 

-0.218497 i. 

-0.538736 

-0.186954 

19.2 

14.4 

0 o 25 

0.2 

- 1.7 

-0.459411 

-0.191142 

-0.360193 

-0.159185 

21.6 

16.7 

0.2 

5.3 

-0.690927 

-0.224956 

-0.547089 

-0.189853 

20.8 

15.6 


0.3 

-1.7 

-0.481981 

-0.200247 

-0.368907 

-0.163327 

23.5 

18.4 


0.3 

5.3 

-0.723665 

-0.723665 

-0.234441 

-0.560G4Q 

22.6 

17.0 


0.4 

-1.7 

-0.501372 

-0.208132 

-0.383971 

-0.169996 

23.4 

18.3 


0.4 

5.3 

-0.768756 

-0.248347 

-0.582908 

-0.202641 

24.2 

18.4 
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Table II 


C lark- Y Airfoil Databank Input Parameters. 


HM 

ALPHA 

ALTITUDE 

CHORD 

NUMACH 

NUALP 

NCL 

NCD 

NCLD 

T 

L 


Mach Number (Free-Stream) 

Angle (s)-of- Attack 

Geometric Attitude in Feet 

Longest Chord Length (Feet) 

Numbers of Mach Numbers 

Number of Angle-of-Attack 

Lift coefficient Parameter 
= 0 if C-^ is not desired 
= 1 if is desired 

Drag Coefficient Parameter 

= 0 if C^ is not desired 

= 1 if C , is desired 
d 

Design Lift Coefficient 
= 0.0 if value is unknown 

Maximum Thickness-to-Chord Ratio 
=0.01 if Value is Unknown 

Section Coordinates Parameter 
= 0 if airfoil coordinates and moments of 
inertia are not desired 

= 1 if airfoil coordinates and moments of 
inertia are desired 


M Moment Coefficient Parameter 

= 0 if CM is not desired 

= 1 for CM. 

= 2 for CM, h 
c/4 
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Table III. Variation of Lift Curve Slope with Thickness. 


t/c 

ao 

a 

r d 

i — t 

o 

0.0 

0.1096 

0.0 

0.0 

0 . 06 

0.10321 0 

-2.9 

0.2993 

0.08 

0.101 156 

“3-6 

0.36416 

0.10 

0.099137 

-4.5 

0.4461 1 6 

0.14 

0.095193 

-6.2 

0.5901 97 

0.18 

0.091 364 

-7.6 

0 . 694366 

0.22 

0.087635 

-9.3 

0.81 5006 
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Table IV. Clark-Y Airfoil Dimensions (t/c = .20). 


X-Coordinates Y 

0.00 
0.0025 
0.025 
0.050 
0.100 
0.200 
0.300 
0.400 
0.500 
0.600 
0.700 
0.800 
0.900 
1 .000 


Coordinates ( upper) 

0.0588 
0.0671 
0.1100 
0.1330 
0.1616 
0.1 918 
0.2000 
0.1 970 
0.1 860 
0.1660 
0.1370 
0.1046 
0.0676 
0.0226 


Y-Coordinates ( lower ) 

0.0588 
0.0505 
0.0262 
0.1 640 
0.0076 
0.0013 
0.0000 
0.0000 
0.0000 
0.0000 
0.0000 
0.0000 
0.0000 
0.0000 
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Table V. Clark-Y Airfoil Dimensions (t/c = .35). 


X-Coordinates 

Y~Coordinates ( upper ) 

Y-Coordinates ( lower ) 

0.000 

0.1290 

0.1029 

0.0025 

0.1112 

0.0946 

0.025 

0.1925 

0.0459 

0.050 

0.2328 

0.0288 

0.100 

0.2828 

0.0133 

0.200 

0.3357 

0.0235 

0.300 

0.3500 

0.0000 

0.400 

0.3447 

0.0000 

0.500 

0.3255 

0.0000 

0.600 

0.2905 

0.0000 

0.700 

0.2393 

0.0000 

0.800 

0.1 831 

0.0000 

0.900 

0.1 183 

0.0000 

1 .000 

0.0396 

0.0000 
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Table VI 


Values of a x (solidity) 


M 


0.4 

0.45 

0.50 

0.55 

0.60 

0.65 

0.70 

0.75 

0.80 






















Table VII . 


t/c per 
cent 

< 3 ° 

3 . 5 ° 


4 ° 

4 . 5 ° 

5 ° 

5 . 5 ° 

6 ° 

6 . 5 ° 

4 

0.879 

0.874 

0. 

867 

0.859 

0.848 

0 . 836 

0.823 

0.808 

4.5 

0.858 

0.852 

0 

vO 

oo 

0.838 

0.828 

0.817 

0.805 

0.792 

5 

0.835 

0.830 

0 

825 

0.817 

0.807 

0.797 

0.787 

0.775 

5.5 

0.810 

0.807 

0 

804 

0.798 

0.789 

0.780 

0.771 

0.760 

6 

0.790 

0.789 

0 

786 

0.781 

0.774 

0.765 

0.755 

0.744 

6.5 

0.775 

0.775 

0 

773 

0.768 

0.761 

0.752 

0.742 

0.731 

7 

0.762 

0.762 

0 

760 

0.756 

0.749 

0.740 

0.730 

0.718 

7.5 

0.751 

0.751 

0 

749 

0.745 

0.738 

0.729 

0,719 

0.706 

8 

0.742 

0.742 

0 

740 

0.735 

0.728 

0.719 

0.707 

0.695 

8.5 

0.732 

0.732 

0 

730 

0.725 

0.718 

0.709 

0.697 

0.684 

9 

0.723 

0.723 

0 

721 

0.716 

0.709 

0.699 

0.687 

0.674 

9.5 

0.713 

0.713 

0 

711 

0.707 

0.699 

0.689 

0.675 

0.663 

10 

0.704 

0.704 

0 

702 

0.698 

0.689 

0.679 

0.666 

0.652 

10.5 

0.695 

0.695 

0 

694 

0.689 

0. 680 

0.669 

0.656 

0.641 

11 

0.686 

0.686 

0 

685 

0.680 

0.671 

0.660 

0.646 

0.629 

11.5 

0.677 

0.677 

0 

676 

0.671 

0.663 

0.650 

0.635 

0.618 

12 

0.669 

0.669 

0 

668 

0.663 

0 . 654 

0.641 

0.625 

0.607 

12.5 

0.660 

0.660 

0 

658 

0.654 

0.646 

0.631 

0.614 

0.595 

13 

0.651 

0.651 

0 

649 

0.645 

0.637 

0.621 

0.603 

0.581 

13.5 

0.643 

0 . 643 

0 

641 

0.637 

0.627 

0.611 

0.591 

0.572 

14 

0.635 

0.635 

0 

633 

0.628 

0.618 

0.600 

0.579 

0.560 

14.5 

0.627 

0.627 

0 

625 

0.620 

0.612 

0.589 

0.567 

0.548 

15 

0.618 

0.618 

0 

616 

0.611 

0.602 

0.578 

0.555 

0.536 

15.5 

0.610 

0.610 

0 

608 

0.603 

0.593 

0.568 

0.543 

0.524 

16 

0.603 

0.603 

0. 

601 

0.596 

0.585 

0.559 

0.532 

0.513 


Values of . 


7 . 5 ° 8 ° 


0 

794 

0 

.781 

0 . 

768 

0 

.778 

0 

.765 

0 . 

751 

0 

.762 

0 

.748 

0 

734 

0 

745 

0 

.731 

0 

717 

0 

730 

0 

.716 

0 

701 

0 

717 

0 

.702 

0 

687 

0 

704 

0 

689 

0 

673 

0 

691 

0 

.676 

0 

661 

0 

679 

0 

.663 

0 

648 

0 

667 

0 

651 

0 

635 

0 

657 

0 

.640 

0 

622 

0 

646 

0 

628 

0 

611 

0 

635 

0 

617 

0 

599 

0 

623 

0 

605 

0 

587 

0 

611 

0 

593 

0 

575 

0 

600 

0 

582 

0 

563 

0 

588 

0 

570 

0 

551 

0 

577 

0 

558 

0 

539 

0 

565 

0 

546 

0 

528 

0 

553 

0 

533 

0 

517 

0 

541 

0 

523 

0 

507 

0 

530 

0 

513 

0 

498 

0 

518 

0 

502 

0 

489 

0 

507 

0 

492 

0 

479 

0 . 

496 

0 

483 

0 

470 


8 . 5 ° 

9 ° 

9 . 5 ° 

0.685 

0.667 

- 

0.670 

0.652 

- 

0.656 

0.638 

0.620 

0.644 

0.626 

0.608 

0.631 

0.613 

0.595 

0.618 

0.601 

0.583 

0.606 

0.588 

0.570 

0.593 

0.575 

0.558 

0.580 

0.563 

0.546 

0.568 

0.551 

0.535 

0.556 

0.539 

0.524 

0.545 

0.528 

0.513 

0.534 

0.518 

0.503 

0.523 

0.508 

0.494 

0.513 

0.498 

0.484 

0.503 

0.489 

0.475 

0.493 

0.479 

0.467 

0.484 

0.471 

0.460 

0.474 

0.462 

0.453 

0.466 

0.454 

0.446 

0.457 

0 . 446 

0.439 


0 

Oil! 

i 

10 . 5 ° 

11 ° 

0.601 

0.582 

0.564 

0.589 

0.570 

0.552 

0.576 

0.558 

0.541 

0.564 

0.547 

0.531 

0.552 

0.536 

0.521 

0.541 

0.526 

0.511 

0.530 

0.516 

0.502 

0.519 

0.505 

0.493 

0.509 

0.496 

0.485 

0.499 

0.487 

0.477 

0.490 

0.479 

0.470 

0.481 

0.471 

0.463 

0.473 

0.463 

0.456 

0.465 

0.457 

0.450 

0.458 

0.450 

0.445 

0.451 

0.444 

0.439 

0.445 

0.439 

0.433 

0.438 

0.432 

0.427 

0.432 

0.426 

0.422 



Table VIII . Values of C ls 


( M - M . ) 

Li 

'is 

0.01 

0.010 

0.02 

0.017 

0.03 

0.022 

0.04 

0.025 

0.05 

0.026 

0.06 

0.025 

0.07 

0.021 

0.08 

0.015 

0.09 

0.007 

0.10 

- 0.002 

0.11 

- 0.014 

0.12 

- 0.027 

0.13 

- 0.040 

0.14 

- 0.054 

0.15 

- 0.070 

0.16 

- 0.086 

0.17 

- 0.102 

0.18 

- 0.119 

0.19 

- 0.138 

0.20 

- 0.157 

0.21 

- 0.175 

0.22 

- 0.193 

0.23 

- 0.212 

0.24 

- 0.231 

0.25 

- 0.250 

0.26 

- 0.270 

0.27 

- 0.289 

0.28 

- 0.307 

0.29 

- 0.325 

0.30 

- 0.344 

0.31 

- 0.363 

0.32 

- 0.381 

0.33 

- 0.400 

0.34 

- 0.417 

0.35 

- 0.432 

0.36 

- 0.446 

0.37 

- 0.459 

0.38 

- 0.470 

0.39 

- 0.478 

0.40 

- 0.485 
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Table IX. 


Values of a Q (slope of low-speed curve). 


t/c per cent. 

a o 

t/c per cent. 

a o 

10 

0.0999 

21 

0.0950 

11 

0.0999 

22 

0.0936 

12 

0.0999 

23 

0.0920 

13 

0.0999 

24 

0.0902 

1 4 

0.0998 

25 

0.0881 

15 

0.0996 

26 

0.0858 

16 

0.0992 

27 

0.0832 

17 

0.0987 

28 

0.0804 

18 

0.0980 

29 

0.0773 

19 

0.0972 

30 

0.0738 

20 

0.0962 
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5 0.820 0.810 0.787 0.762 0.735 0.707 


0.811 0.817 0.805 0.785 0.761 0.735 


0.782 0.800 0.808 0.806 0.796 0.779 


0.750 0.774 0.790 0.799 0.800 0.795 


0.766 





0.691 0.709 0.725 0.735 0.732 0.716 


0.674 0.690 0.705 0.715 0.715 0.699 


0.658 0.672 0.685 0.696 0.698 0.684 


0.643 0.656 0.667 0.678 0.682 0.671 


0.629 0.640 0.651 0.661 0.667 0.662 


0.614 0.625 0.637 0.647 0.655 0.654 


0.600 0.613 0.625 0.637 0.646 0.648 



3.0 3.5 4 . 
0.680 0.651 0 . 
0.707 0.680 0 , 
0.756 0.731 0 
0.781 0.761 0 
0.752 0.733 0 
0.724 0.705 0 
0.697 0.678 0 
0.681 0.662 0 


0 4.5 5.0 

621 0.593 0.565 

650 0,620 0.591 

702 0.671 0.641 

737 0.708 0.679 

713 0.690 0.663 

684 0.672 0.641 

660 0.642 0.625 

644 0.626 0.610 


0.667 0.648 0.630 0.612 0.597 
0.657 0.639 0.620 0.602 0.587 
0.650 0.632 0.611 0.593 0.580 
0.643 0.626 0.605 0.586 0.574 


0.637 0.621 


0.600 0.580 0.570 









Table XI. Values of M D . 



a 

0 

t/c % 

-1.5 

-1.0 

-0.5 

0 

5.0 

5.5 

6.0 

6.5 

7.0 

4.5 

i 

0.718 

0.763 

0.800 

0.820 

0.565 

- 

- 

- 

- 

i 

5.0 

0.705 

0.749 

0.785 

0.811 

0.591 

0.563 

- 

- 

- 

5.5 

0.690 

0.734 

0.771 

0.797 

0.617 

0.588 

0.560 

- 

- 

6.0 

0.674 

0.718 

0.755 

0.782 

0.641 

0.611 

0.583 

0.556 

- 

6.5 

0.651 

0.697 

0.735 

0.765 

0.662 

0.631 

0.602 

0.575 

0.550 

7.0 

0.627 

0.675 

0.715 

0.750 

0.679 

0.649 

0.620 

0.590 

0.564 
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Table XII . Values of B Q . 


a 

B 

a 

B 

0 

0 

0 

0 

- 2.0 

1 .131 

3.2 

0.985 

- 1.8 

1.114 

3.4 

0.989 

- 1.6 

1 .098 

3.6 

0.994 

-1 .4 

1 .082 

3.8 

0.999 

-1 .2 

1 .067 

4.0 

1 .005 

-1 .0 

1 .054 





4.2 

1 .01 2 

- 0.8 

1 .041 

4.4 

1 .020 

- 0.6 

1 .030 

4.6 

1 .028 

- 0.4 

1 .01 9 

4.8 

1.037 

- 0.2 

1 .009 

5.0 

1 .047 

0 

1 .000 





5.2 

1 .057 

0.2 

0.994 

5.4 

1 .067 

0.4 

0.987 

5.6 

1 .078 

0.6 

0.983 

5.8 

1 .090 

0.8 

0.979 

6.0 

1.103 

1 .0 

0.976 



1 .2 

0.974 

6 . 2 

1.117 

1 .4 

0.973 

6.4 

' 1.132 

1 . 6 

0.972 

6.6 

1 .1 47 

1 .8 

0.971 

6.8 

1 .1 62 

2.0 

0.972 

7.0 

1 .179 

2.2 

0.974 

7.2 

1 .197 

2.4 

0.976 

7.4 

1 .21 6 

2 . 6 

0.978 

7.6 

1 .235 

2.8 

0.980 

7.8 

1 .255 

3.0 

0.982 

8.0 

1 .276 
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Table XIII. Values of C Q . 


t/c$ 

C 

o 

3.0 

0.00745 

3.5 

0.00753 

4.0 

0.00761 

4.5 

0.00770 

5.0 

0.00780 

5.5 

0.00790 

6.0 

0.00800 

6.5 

0.00810 

7.0 

0.00820 

7.5 

0.00830 

8.0 

0.00840 

8.5 

0.00851 

9.0 

0.00862 


t/c% 

C 

0 

9.5 

0.00874 

10.0 

0.00886 

10.5 

0.00898 

11.0 

0.0091 0 

11.5 

0.00921 

12.0 

0.00932 

12.5 

0.00944 

13-0 

0.00957 

13.5 

0.00970 

14.0 

0,00983 

14.5 

0.00997 

1 5.0 

0.01010 

15.5 

0.01 025 

16.0 

0.01 040 
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Table XIV. Values of C ds . 


M-M d 

C ds 

m - m d 

C 

ds 

m - m d 

C 

ds 

m - m d 

c ds 

0.01 

0.0001 

0.11 

0.0255 

0.21 

0.0591 

0.31 

0.0927 

0.02 

0.0009 

0.12 

0.0288 

0.22 

0.0625 

0.32 

0.0961 

0.03 

0.0022 

0.13 

0.0322 

0.23 

0.0658 

0.33 

0.0995 

0.04 

0.0040 

0.14 

0.0356 

0.24 

0.0692 

0.34 

0.1 028 

0.05 

0.0063 

0.15 

0.0389 

0.25 

0.0726 

0.35 

0.1062 

0.06 

0.0091 

0.16 

0.0423 

0.26 

0.0759 

0.36 

0.1096 

0.07 

0.0122 

0.17 . 

0.0456 

0.27 

0.0793 

0.37 

0.1129 

0.08 

0.0154 

0.18 

0.0490 

0.28 

0.0826 

0.38 

0.1163 

0.09 

0.01 87 

0.19 

0.0524 

0.29 

0.0860 

0.39 

0.1196 

0.10 

0.0221 

0.20 

0.0557 

0.30 

0.0894 

0.40 

0.1230 
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Figure 1* Variation of Lift Curve Slope with Thickness. 
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Figure 16. t/c = .35 
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Appendix I 

ClarkY Program Listing 
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ooo nonnn n nnn 


//CLARKY JOB (R230 , 006B , S02 , 003 , A7 ),’ CLARKY ' 

//^FORMAT PR, DDNAME= , JDE= JFMT1 , F0RMS=1111 
/ / *XBM WATFIV 
/ /$0PTI0NS NOLIST 

C 

C* * 

C* THIS PROGRAM WILL CALCULATE THE LIFT COEFFICIENT, DRAG, * 

C* AND MOMENT COEFFICIENT ABOUT THE QUARTER CHORD OR THE * 

C* LEADING EDGE, COORDINATES FOR A CLAYK Y AIRFOIL SECTION * 

C* * 

C 

DIMENSION CL(25,25), CD ( 25 , 25) ,CLD(25 ,25) , ALPHA ( 7 ) , ALPHAO ( 21) , 
&RN ( 25 ) ,CM(25, 25) 

REAL HM ( 4 ) , NCLD 
DATA HM/ 0.0, 0.1,0. 2,0. 4/ 

DATA ALPHA/ -1 . 0,0. 0,1. 0,2. 0,3. 0,4. 0,5.0/ 

DATA ALTUDE/ 10Q00 . / 

NOTE; CHORD MUST BE IN FEET 

DATA CHORD/ 0.75/ 

DATA NUMACH/4/ 

DATA NUMALP/7/ 

DATA NCL/1/ 

DATA NCD/1/ 

CALL ATMCON (ALTUDE , TEMP , PRES , DEN , VIS , WA) 

SPECIFY HERE THE KNOWN VALUE OF CLD OR TMAX 
SET THE UNKNOWN VARIABLE (CLD OR (T/C)MAX) EQUAL TO ZERO 
FOR EXAMPLE, NCLD-UNKNOWN VALUE OF CLD , T=KNOWN VALUE OF (T/C)MAX 
NOTE; THIS CLD IS INCOMPRESSIBLE AND ONLY TO START THE CODE. 

DATA NCLD/ 0 „ 00/ 

IN ORDER TO BE CONSISTANT T IS NON-DIMENSIONAL 

DATA T/0 „ 1170/ 

C 

CALL CLTMAX (T, NCLD , ALPHLO , DNCLD) 

C 

C SPECIFY HERE THE DESIRE FOR CLARK - Y AIRFOIL SECTION COORDINATES 
C AND ITS MOMENTS OF INERTIA BY INDICATING "l" FOR "YES", AND "0" 

C FOR "NO" FOR PARAMETER "L" 

C FOR EXAMPLE, L=1 
DATA L/l/ 

CALL CYCOOR (L, CHORD, T) 

C 

WRITE (6,10) 

10 FORMAT ( ' 1 ' ,/////////, 56X, ’ ***' , IX, ’ LIMITATIONS ’ , IX, 1 ***’//) 

C 

C SPECIFY HERE THE DESIRE FOR MOMENT COEFFICIENTS ~ EITHER CM 
C ABOUT THE NOSE OR THE QUARTER CHORD - BY INDICATING "1" FOR 
C "CM ABOUT THE NOSE" AND ”2" FOR "CM ABOUT THE QUARTER CHORD” 

C FOR THE PARAMETER "M” . IF CM IS NOT DESIRED, INDICATE "0" FOR 
C PARAMETER "M" „ 

C FOR EXAMPLE, M=1 . 

DATA M/2/ 

C 

DO 21 K- 1 , NUMACH 
C 

DO 42 J=1 , NUMALP 
C 

RN ( K ) =DEN*HM ( K) *WA*CHQRD/VIS 
C 

ALPHAO (J)=ALPHA(J) -ALPHLO 

CALL C LCD (ALPHAO ( J ) , T , HM( K) ,CL(K,J) , CD ( K , J ) ,NCL,NCD) 
CLD(K,J)=CL(K,J)/ CD (K, J ) 

C 

CM(K , J ) =CMFF (T,CL(K,J) , M, HM(K) ) 

C 

42 CONTINUE 
C 
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21 CONTINUE 


J=0 

IF ( NUMACH . EQ . 1 ) GO TO 4 4 
NUMT=NUMACH 
DO 40 JJ = 1, NUMACH 
WRITE (6,892) 

892 FORMAT ('1' ,//////////) 

WRITE (6,852) 

852 FORMAT ( ' ', 14X, IX, ' CLARK Y SERIES AIRFOIL DATA BANK’, 

&1X, 24X, IX, 'CLARK Y SERIES AIRFOIL DATA BANK ' ,1X, '*'////) 

WRITE (6,515) ALTUDE , ALTUDE 

515 FORMAT (T20, 'ALTITUDE = ', F10 . 4 , IX FEET ’, T83 ALTITUDE * ' 

& , F10 . 4 , IX, 'FEET'/) 

WRITE (6,117) CHORD, CHORD 

117 FORMAT (T23, ’CHORD = ’ , F10 . 6 , IX, ’ FEET ' , T86 , ’ CHORD = 

&F10 . 6 , IX, ’FEET’/) 

IF ( DNCLD . EQ . 1 . ) GO TO 730 

WRITE (6 , 950) T , T , NCLD , NCLD 

950 FORMAT (T20, ' (T/C)MAX = \F10.6,' (S) ' ,T82, ' (T/C)MAX = 

&F10.6,' ( S) 1 , //T25 , ' CLD = ’ , F10 . 6 , T87 , ’ CLD = ',F10.6/) 

GO TO 100 

730 CONTINUE 

WRITE (6,888) T , T , NCLD , NCLD 

888 FORMAT (T20, ’ (T/OMAX = ' , F10 . 6 , T83 , ' (T/C)MAX - ',F10.6, 

&/ /T25 , ' CLD = ' , F10 . 6 , ' ( S ) ' , T88 , ' CLD = ',F10.6,' (S)'/) 

100 CONTINUE 

WRITE (6,735) ALPHLO , ALPHLO 

735 FORMAT (T21, 'ALPHALO = ' , F10 . 6 , IX, ’ DEG . ' , T84 , ' ALPHALO = 

&F10.6,1X, 'DEG. ’/) 

WRITE (6,701) HM(J+1) ,HM( J+2) 

701 FORMAT (T20, 'MACH NO. = ’ , F10 . 6 , T83 , ’ MACH NO. = ',F10.6/) 

WRITE (6,729) RN ( J+l ) , RN ( J+2 ) 

729 FORMAT(T16, 'REYNOLDS NO. = ', E14 . 6 , T7 9 , ' REYNOLDS NO. - 

&E14 . 6 , // ) 

IF (M . EQ . 2) GO TO 82 
WRITE (6,555) 

555 FORMAT (T10, 'ALPHA' ,T23, 'CL' ,T35, 'CD' ,T45, ' CL/CD’ ,T57, ’CM (LED) ’ , 
&T7 3, ’ALPHA* ,T86, ’CL’ ,T98, ’CD’ ,T108, 'CL/CD' ,TX20, ’CM(LED) '/) 

GO TO 83 

82 WRITE (6,556) 

556 FORMAT (T10, 'ALPHA' ,T23, 'CL' ,T35, 'CD’,T45, 'CL/CD' , T57 , ’ CM ( 1/4 ) ' , 
&T73, 'ALPHA' ,T86, 'CL' ,T98, 'CD' ,T108, 'CL/CD' ,T120, 'CM (1/4) ' ) 

83 CONTINUE 

DO 41 N=1 , NUMALP 

WRITE (6, 600) ALPHA (N) ,CL(J+1,N) ,CD(J+1,N) f CLD(J+l,N) , 

&CM( J+l , N) , ALPHA(N ) ,CL(J+2,N) , CD ( J+2 , N) , CLD ( J+2 , N ) , CM ( J+2 , N ) 

600 FORMAT (2(5X,F10.6,2X,F10.6,2X,F10.6,2X,F10.6,2X,F10.6)) 

41 CONTINUE 

J=JJ*2 
NUMT=NUMT-2 
IF(NUMT.EQ.O) GO TO 33 
IF (NUMT . EQ . 1 ) GO TO 44 

40 CONTINUE 


44 WRITE (6,579) 

579 FORMAT ('1', //////////) 
WRITE (6,589) 
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589 FORMAT ( * ' , 14X , IX CLARK Y SERIES AIRFOIL DATA BANK', 

SIX, ’*'////) 

C 

WRITE (6,214) ALTUDE 

214 FORMAT (T20, 'ALTITUDE = ' , F10 . 4 , IX, ' FEET ' /) 

WRITE (6,339) CHORD 

339 FORMAT (T23, 'CHORD = ' , F10 . 6 , IX, ’ FEET ’ ) 

C 

IF (DNCLD . EQ . 1 . ) GO TO 731 
C 

WRITE (6 , 951) T , NCLD 

951 FORMAT(T20, ’ (T/OMAX = ',F10.6,' (S) " , / /T25 , ' CLD = ’ ,F10.6/) 

GO TO 101 
C 

731 CONTINUE 

WRITE (6,889) T , NCLD 

889 FORMAT ( T20, ' (T/C)MAX = ' , F10 . 6 , //T25 , * CLD = ' ,F10.6,' ( S ) ' / ) 

C 

101 CONTINUE 

WRITE (6,736) ALPHLO 

736 FORMAT (T21, 'ALPHLO = ' , F10 . 6 , IX , ' DEG . ’ /) 

WRITE (6,702) HM(NUMACH) 

702 FORMAT (T20, 'MACH NO. = ' ,F10.6/) 

C 

WRITE ( 6 , 912)RN (NUMACH) 

912 FORMAT (/T16, 'REYNOLDS NO. = ’,E14.6//) 

C 

IF (M . EQ . 2 ) GO TO 84 
WRITE(6, 666) 

666 FORMAT (T10, 'ALPHA' ,T23, ' CL ' , T35 , ' CD ' , T45 , 'CL/CD 5 ,T57, 'CM (LED) ’/) 

GO TO 85 

84 WRITE (6,665) 

665 FORMAT (T10 , 'ALPHA' ,T23, 'CL' ,T35, 'CD' f T45, 'CL/CD' ,T57, 'CM(l/4) '/) 

85 CONTINUE 
C 

DO 66 N = 1 , NUMALP 

WRITE ( 6 , 250 ) ALPHA ( N ) , CL (NUMACH, N) , CD (NUMACH, N) , C LD ( NUMACH , N ) 

&, CM ( NUMACH, N) 

250 FORMAT (5X,F10.6,2X,F10.6,2X,F10.6,2X,F10,6,2X,F10.6) 

66 CONTINUE 
C 

GO TO 33 

C 

33 WRITE (6 , 999) 

999 FORMAT ( ’ 1 ' ,//////////) 

STOP 

END 


SUBROUTINE CLCD ( ALPHAO , T , HM , CL , CD , NCL , NCD ) 

**t»****>lr******s*mf*********t*!****<im(*iile****s»*«****H(!»****#ti«rifc««r*mE«(»f*** 


HIGH-SPEED LIFT AND DRAG DATA 
FOR 

PROPELLER PERFORMANCE CALCULATION 
CLARK-Y SECTIONS 


REFERENCES; 

HAINES, A. B. AND MONAGHAN, R. J., "HIGH SPEED LIFT 
AND DRAG DATA FOR PROPELLER PERFORMANCE CALCUALATIONS 
TIONS," R&M NO. 2036, BRITISH A. R. C„, 1945. 

MACDOUGALL, A. R. C., "REVISED HIGH-SPEED LIFT AND 
DRAG DATA FOR PROPELLER PERFORMANCE CALCULATIONS," 

R&M NO. 2474, BRITISH A. R. C., 194?! 


Is 
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USAGE: * 

•A 


CALL CLCD ( ALPHAO , T , HM , CL , CD , NCL , NCD) * 

* 


DESCRIPTION OF, PARAMETERS: * 

* 


CL 

CD 

ALPHA 

ALPHAO 

T 

HM 

NCL 

NCD 


LIFT COEFFICIENT * 
DRAG COEFFICIENT * 
ANGLE OF ATTACK RELATIVE TO FREE STREAM (DEG.) * 
ANGLE OF ATTACK RELATIVE TO THE ZERO LIFT LINE * 
(DEGREES) * 
THICKNESS-CHORD RATIO WITH RESPECT TO LONGEST * 
CHORD LINE * 
MACH NUMBER * 
NCL .NE. 0 IF CL DESIRED * 
NCD .NE. 0 IF CD DESIRED * 


IF(NCL.NE.O) CL=CLFF( ALPHAO, T,HM) 
IF ( NCD . NE . 0 ) CD=CDFF (T, ALPHAO, HM) 
RETURN 
END 


*************************************************************** 


LIFT DATA * 

* 

*************************************************************** 


FUNCTION CLFF (ALPHAO,T,HM) 

C CLFF = LIFT COEFFICIENT 

C ALPHAO= ANGLE OF ATTACK RELATIVE TO THE ZERO LIFT LINE 

C T = THICKNESS -CHORD RATIO 

C 

IF (T . LT . 0 . 16 ) GO TO I 
CLFF=ALPHAO*THKSLP (T , ALPHAO , HM) 

C THKSLP(T, HM) CALCULATES THE SLOPE OF THE LIFT CURVE 

C FOR THICK SECTIONS 
RETURN 

1 AO=AOF(T, ALPHAO, HM) 

C AOF(T) CALCULATES SLOPE OF LOW-SPEED LIFT CURVE 
HML=HMLF(T, ALPHAO, HM) 

C HMLF(T, ALPHAO, HM) CALCULATES THE CRITICAL MACH NUMBER FOR 

C LIFT. (FUNCTION OF THICKNESS AND ANGLE OF ATTACK) 

H=HM-HML 

C CALCULATE INCOMPRESSIBLE LIFT COEFFICIENT 
CLO= AO'* ALPHAO 

C APPLY PRANDTL-GLAUERT CORRECTION 

IF (HM . LE . HML ) CLFF=CLO/SQRT ( 1 . -HM*HM) 

IF(H.LE.0.4) GO TO 2 

2 IF (HM . GT . HML ) CLFF=CLO/SQRT ( 1 . -HML*HML )+CLSF (H) 

C CLSF(H) CALCULATES THE DIFFERENCE OF CL AT A MACH NUMBER 

C ABOVE THE CRITICAL FROM ITS CRITICAL VALUE. 

RETURN 

END 

C 

FUNCTION AOF(T, ALPHAO, HM) 

C AOF= VALUE OF AO, SLOPE OF THE LOW SPEED LIFT CURVE 
C T * THICKNESS-CHORD RATIO 
C 

DIMENSION A(28) ,H(28) ,X(3) ,Y(3) . 

C DATA IS FROM HAINES AND MONAGHAN, P. 1174, TABLE #1 
C DATA A = SLOPE OF LOW-SPEED LIFT CURVE 

DATA A/0.1095, 0.1094, 0.1091, 0.1085, 0.1069, 0.1043, 

1 0.1017, 0.0991, 0.0999, 0.0999, 0.0999, 0.0998, 

2 0.0996, 0.0992, 0.0987, 0.0980, 0.0972, 0.0962, 

3 0.0950, 0.0936, 0.0920, 0.0902, 0.0881, 0.0858, 

4 0.0832, 0.0804, 0.0773, 0.0738/ 

C DATA H = THICKNESS-CHORD RATIO 

DATA H/0. 001, 0.002, 0.005, 0.010, 0.025, 0.050, 0.07 5, 0.100, 0.110, 
1 0.120,0.130,0.140,0.150,0.160,0.170,0.180,0.190,0.200, 
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2 0.210,0.220,0.230,0.240,0.250,0.260,0.270,0.280,0.290, 

3 0.300/ 

TCMAX=0 . 3 

IF(T.GT.TCMAX) WRITE(6,30) T , TCMAX 
30 FORMAT ( ' ’ ,19X, ’T/C = ',F10.6,' IS GREATER THAN (T/C)MAX = ’, 

&F10.6,’ OF FUNCTION AOF ' / ) 

N = 2 

A0F=0 . 1096 

IF (T . EQ . 0 . ) RETURN 

IS = 1 

IL=IS+N-1 

1 IF ( IL , GE . 28) GO TO 2 

IF( (T-H( IS) ) *(T“H( IL) ) .LE.O.) GO TO 3 
IS = IL 
IL=IS+N-1 
GO TO 1 

2 IS=28-N+1 
I L=28 

3 DO 4 I=IS , IL 

X ( I-IS+1 ) =H ( I ) 

Y ( I-IS+1)=A( I) 

4 CONTINUE 
AOF=YLAGN (X , Y , N , T) 

RETURN 

END 

C 

FUNCTION CLSF(H) 

C CLSF=CLS 
C H =M-ML 
C 

DIMENSION C(40),S(40),X(3),Y(3) 

C DATA IS FROM HAINES AND MONAGHAN, P. 1176, TABLE #4 
C DATA C = LIFT COEFFICIENT 

DATA C/ 0.010, 0.017, 0.022, 0.025, 0.026, 0.025, 0.021, 

1 0.015, 0.007,-0.002,-0.014,-0.027,-0.040,-0.054, 

2 -0.070,-0.086,-0.102,-0.119,-0.138,-0.157,-0.175, 

3 -0.193,-0.212,-0.231,-0.250,-0.270,-0.289,-0.307, 

4 -0.325,-0.344,-0.363,-0.381,-0.400,-0.417,-0.432, 

5 -0.446,-0.459,-0.470,-0.478,-0.485/ 

C DATA S = (M-ML), WHERE M=LOCAL MACH NO., AND ML=CRITICAL MACH NO. 

C FOR LIFT AT WHICH THE LIFT DEPARTS FROM THE GLAUERT LAW, VARIED 

C WITH (T/C) AND ALPHAO 

DATA S/0. 01, 0.02, 0.03, 0.04, 0.05, 0.06, 0.07, 0.08, 0.09, 0.10, 

1 0.11,0.12,0.13,0.14,0.15,0.16,0.17,0.18,0.19,0.20, 

2 0.21,0.22,0.23,0.24,0.25,0.26,0.27,0.28,0.29,0.30, 

3 0.31,0.32,0.33,0.34,0.35,0.36,0.37,0.38,0.39,0.40/ 
HMIN=0 .01 

HMAX=0 .40 

IF(H.LT.HMIN) WRITE(6,10) H, HMIN 
10 FORMAT ( ' ' , 19X , ' H = M-ML = \F10.6,' IS LESS THAN HMIN = ’, 

&F10 . 6 , ’ OF FUNCTION CLSF'/) 

IF(H.GT.HMAX) WRITE(6,20) H , HMAX 

20 FORMAT (' ’ , 19X, ’ H = M-ML = ' , F10 . 6 , ’ IS GREATER THAN HMAX = ? , 

&F10.6,’ OF FUNCTION CLSF’/) 

N = 3 
IS=1 

IL=IS+N-1 

IF (H . LE . S ( IL ) ) GO TO 1 

IL=40 

IS=IL-N+1 

IF (H.GE .S( IS) ) GO TO 1 
IS=1 

IL=IS+N-1 

2 IF ( ( (H-S ( IS) ) * (H-S (IL))).LE.O.) GO TO 1 
1S-IL 
IL=IS+N-1 
GO TO 2 

1 DO 4 X=IS , IL 
X(I-IS+1)=S(I) 

Y ( I-IS+1 ) =C ( I ) 

4 CONTINUE 

CLSF=YLAGN(X, Y , N , H) 

RETURN 

END 
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FUNCTION THKSLP(T, ALPHAO, HM) 

THKSLP = VALUE OF THE SLOPE OF THE LIFT CURVE OF THE 
THICK SECTION 

T = THICKNESS-CHORD RATIO 

HM = SECTION MACH NUMBER 

DIMENSION H(6),S(9),X(3),Y(3),U(3),V(3) 

DIMENSION A15 ( 6 ) , A17 (5) , A19 ( 4 ) 

C DATA IS FROM HAINES AND MONAGHAN, P. 1176, TABLE #5 
C DATA 'A. NO.': 'A'=INVERSE SLOPE OF LOW=SPEED LIFT CURVE, '.NO. 1 

C THICKNESS-CHORD RATIO 

DATA A15/9 .2,8.95,8.7,8.4,8.0,7.9/ 

DATA A17/9 .6,9.4,9.2,8.95, 8.8/ 

DATA A19/10 .1,10.0,9.9,9.8/ 

C DATA H = MACH NO. 

DATA H/0. 40, 0.4 5, 0.50, 0.55, 0.60, 0.65/ 

C DATA S = THICKNESS-CHORD RATIO 

DATA S/0.15,0.17,0.19,0.21,0.23,0.25,0.30,0.35,0.40/ 

TCMAX=0 . 40 
HMAX=0 . 80 

IF (T . GT . TCMAX) WRITE(6,33) T , TCMAX 
33 FORMAT ( * ',19X,'T/C = ',F10.6,' IS GREATER THAN (T/C)MAX « 1 
&F10.6, ' OF FUNCTION THKSLP'/) 

IF(HM.GT.HMAX) WRITE(6,70) HM , HMAX 
70 FORMAT ( ' ',19X,'MACH NO. = ',F10.6,' IS GREATER THAN MACH NO 

& 1 (MAX) = 1 , F10 . 6 , ' OF FUNCTION THKSLP'/) 

IF (HM . LT . 0 . 3 ) GO TO 50 
CALL OUT (9,2,IS,IL,S,T) 

CALL OUT (6,2,JS,JL,H, HM ) 

U ( 1) =H ( JS) 

U(2)=H( JL) 

X( 1 ) =S ( IS) 

X( 2 ) =S ( IL ) 

DO 10 I=IS, IL 
C COMPUTED GO TO 

GO TO (15,17,19,21,23,25,30,35,40),! 

IS ANS=A15 ( 1 ) 

IF (HM. LE . H( 1 ) ) .GO TO 1 
ANS=A15 ( 6 ) 

IF (HM.GE ,H(6) ) GO TO 1 
V ( 1 ) =A15 ( JS) 

V(2)=A15(JL) 

GO TO 2 
17 ANS=A17 ( 1 ) 

IF (HM. LE .H( 1 ) ) GO TO 1 
ANS=A17 (5) 

IF (HM.GE .H( 5 ) ) GO TO 1 
V ( 1 ) =A17 ( JS) 

V ( 2 ) -A17 ( JL) 

GO TO 2 
19 ANS=A19 ( 1 ) 

IF (HM. LE .H.( 1) ) GO TO 1 
ANS=A19 ( 4 ) 

IF (HM . GE . H ( 4 ) ) GO TO 1 
V ( 1 ) =A19 ( JS) 

V (2)=A19( JL) 

GO TO 2 
21 ANS=10 . 5 
GO TO 1 
23 ANS=10 . 9 
GO TO 1 
25 ANS-11.4 
GO TO 1 
30 ANS=13 . 6 
GO TO 1 
35 AN5=19 . 2 
GO TO 1 
40 ANS-30.0 
GO TO 1 

2 ANS=YLAGN (U , V , 2 , HM) 

1 Y(X-IS+1)=ANS 
10 CONTINUE 

THKSLP=1./YLAGN(X,Y,2,T) 
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RETURN 

50 THKSLP=A0F (T , ALPHAO , HM) 
RETURN 
END 


FUNCTION HMLF(T, ALPHAO, HM) 

HMLF = ML 

T = THICKNESS-CHORD RATIO 

ALPHAO = ANGLE OF ATTACK RELATIVE TO THE ZERO LIFT LINE 
(DEGREES) 

DIMENSION A(17) ,B(25) ,C(25,17) ,X(3) ,Y(3) ,U(3) ,V(3) , 

1 E ( 6 , 10 ) ,F(10) ,G(6) 

C DATA IS FROM HAINES AND MONAGHAN, P. 1175, TABLE #3 - 

C DATA A = ALPHAO = ANGLE OF ATTACK WITH RESPECT TO ZERO LIFT LINE 

DATA A/3 .,3. 5, 4, ,4. 5, 5. ,5. 5, 6. ,6.5, 7. ,7. 5, 8. ,8. 5, 9., 

1 9.5,10. ,10.5,11./ 

C DATA B = THICKNESS-CHORD RATIO 

DATA B/0. 04, 0.04 5, 0.05, 0.055, 0.06, 0.065, 0.07, 0.07 5, 0.08, 

1 0.085,0.09,0.095,0.10,0.105,0.11,0.115,0.12,0.125,0.13, 

2 0.135,0.14,0.145,0.15,0.155,0.16/ 

C DATA C = CIRTICAL MACH NO. FOR LIFT AT WHICH THE LIFT DEPARTS 
C FROM THE GLAUERT LAW, VARIED WITH (T/C) AND ALPHAO 
DATA (C(I,1) ,1=1,25)/ 

1 0.879,0.858,0.83125,0.8125,0.79125,0.7775,0.765, 

1 0.751,0.742,0.732,0.723,0.713,0.704,0.695,0.686,0.677, 

1 0.669,0.660,0.651,0.643,0.635,0.627,0.618,0.610,0.603/ 
DATA(C( 1,2) , 1=1,25)/ 

2 0.874,0.852,0.828,0.807,0.790,0.775,0.764,0.751,0.742, 

2 0.732,0.723,0.713,0.704,0.695,0.686,0.677,0.669,0.660, 

2 0.651,0.643,0.635,0.627,0.618,0.610,0.603/ 

DATA (C(I, 3) , 1=1,25)/ 

3 0.867,0.846,0.825,0.804,0.7875,0.773,0.765,0.749,0.740, 

3 0.730,0.721,0.711,0.702,0.694,0.685,0.676,0.668,0.658, 

3 0.649,0.641,0.633,0.625,0.616,0.608,0.601/ 

DATA (C ( I , 4) , 1=1,25)/ 

4 0.859,0.838,0.817,0.798,0.78125,0.768,0.756,0.745,0.735, 

4 0.725,0.716,0.707,0.698,0.689,0.680,0.671,0,663,0.654, 

4 0.645,0.637,0.628,0.620,0.611,0.603,0.596/ 

DATA (C ( I 5) 1=1 25)/ 

5 0. 848, 0. 828 ' 0.807, 0.7 89, 0.77 4, 0.7 61, 0.7 4 9, 0.738, 0.7 28, 

5 0.718,0.709,0.699,0.689,0.680,0.671,0.663,0.654,0.646, 

5 0.637,0.627,0.618,0.612,0.602,0.593,0.585/ 

DATA (C(I 6) 1=1 25)/ 

6 0.836, 0.817 "0.7 97, 0.7 80, 0.7 65, 0.7 52, 0.7 40, 0.7 29, 0.7 19, 

6 0.709,0.699,0.689,0.679,0.669,0.660,0.650,0.641,0.631, 

6 0.621,0.611,0.600,0.589,0.578,0.568,0.559/ 

r>ATA ( C ( T 7 ^ T — 1 JCl / 

7 0. 823,0. 805,' 0. 7 87, 0.77 1,0. 7 55, 0.7 42, 0.730, 0. 719, 0. 707 , 

7 0.697,0.687,0.675,0.666,0.656,0.646,0.635,0.625,0.614, 

7 0.603,0.591,0.579,0.567,0.555,0.543,0.532/ 

DATA (C(I, 8) ,1=1,25)/ 

8 0.808,0.792,0.775,0.760,0.744,0.731,0.718,0.706,0.695, 

8 0.684,0,674,0.663,0.652,0.641,0.629,0.618,0.607,0.595, 

8 0.584,0.572,0.560,0.548,0.536,0.524,0.513/ 

DATA (C(I, 9) ,1=1,25)/ 

9 0.794,0.778,0.762,0.745,0.730,0.717,0.704,0.691,0.679, 

9 0.667,0.657,0.646,0.635,0.623,0.611,0.600,0.588,0.577, 

9 0.565,0.553,0.541,0.530,0.518,0.507,0.496/ 

DATA (C ( I , 10) ,1=1,25)/ 

§ 0.781,0.765,0.748,0.731,0.716,0.702,0.689,0.676,0.663, 

$ 0.651,0.640,0.628,0.617,0.605,0.593,0.582,0.570,0.558, 

$ 0.546,0.533,0.523,0.513,0.502,0.492,0.483/ 

DATA (C ( I , 11 ) , 1=1 , 25 ) / 

1 0.768,0.752,0.734,0.717,0.701,0.687,0.673,0.661,0.648, 

1 0.635,0.622,0.611,0.599,0.587,0.575,0.563,0.551,0.539, 

1 0.528,0.517,0.507,0.498,0.489,0.479,0.470/ 

DATA (C(I,12),I=1,25)/ 

2 0.755,0.739,0.720,0.703,0.685,0.670,0.656,0.644,0.631, 

2 0.618,0.606,0.593,0.580,0.568,0.556,0.545,0.534,0.523, 

2 0.513,0.503,0.493,0.484,0.474,0.466,0.457/ 
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DATA (C(I,13),I=1,25)/ 

3 0.742,0.726,0.706,0.689,0.667,0.652,0.638,0.626,0.613, 

3 0.601,0.588,0.575,0.563,0.551,0.539,0.528,0.518,0.508, 

3 0.498,0.489,0.479,0.471,0.462,0.454,0.446/ 

DATA (C ( I , 14) , 1=1,25)/ 

4 0.729,0.713,0.692,0.675,0.647,0.633,0.620,0.608,0.595, 

4 0.583,0.570,0.558,0.546,0.535,0.524,0.513,0.503,0.494, 

4 0.484,0.475,0.467,0.460,0.453,0.446,0.439/ 

DATA (C(I, 15) , 1=1, 25)/ 

5 0.716,0.700,0.678,0.661,0.625,0.613,0.601,0.589,0.576, 

5 0.564,0.552,0.541,0.530,0.519,0.509,0.499,0.490,0.481, 

5 0.473,0.465,0.458,0.451,0.445,0.438,0.432/ 

DATA (C(1, 16) , 1 = 1,25)/ 

6 0.703,0.687,0.664,0.647,0.601,0.592,0.582,0.570,0.558, 

6 0.547,0.536,0.526,0.516,0.505,0.496,0.487,0.479,0.471, 

6 0.463,0.457,0.450,0.444,0.439,0.432,0.426/ 

DATA (C(I, 17) , 1=1,25)/ 

7 0.690,0.674,0.650,0.633,0.575,0.570,0.564,0.552,0.541, 

7 0.531,0.521,0.511,0.502,0.493,0.485,0.477,0.470,0.463, 

7 0.456,0.450,0.445,0.439,0.433,0.427,0.422/ 

C DATA IS FROM MACDOUGALL, PP. 1032-33, TABLES 1A&B 
C DATA F = ALPHAO = ANGLE OF ATTACK WITH RESPECT TO ZERO LIFT LINE 
DATA F/-1. 5,-1. ,-0.5,0. ,0.5,1., 1.5, 2., 2. 5, 3./ 

C DATA G = THICKNESS-CHORD RATIO 

DATA G/0. 045, 0.05, 0.055, 0.06, 0.065, 0.07/ 

C DATA E = CIRTICAL MACH NO. FOR DRAG AT WHICH THE DRAG DEPARTS 
C FROM ITS LOW-SPEED VALUE 

DATA ( (E(I, II) ,1=1,6) , 11=1,5)/ 

1 0.584,0.593,0.603,0.613,0.625,0.638, 

2 0.586,0.601,0.610,0.62125,0.63125,0.64375, 

3 0.603,0.61875,0.63125,0.64,0.65875,0.6662, 

4 0.64625,0.6620,0.67425,0.6875,0.69375,0.696875, 

5 0.7,0.7125,0.725,0.73525,0.73125,0.73125/ 

DATA ((E(I, II), 1=1, 6), 11=6, 10)/ 

6 0.775,0.775,0.775,0.77625,0.7575,0.75, 

7 0.8125,0.80625,0.778125,0.7775,0.76875,0.7593, 

8 0.840,0.82125,0.805,0.7875,0.776,0.765, 

9 0.852,0.827,0.80875,0.790,0.775,0.7656, 

1 0.858,0.83125,0.8125,0.79125,0.7775,0.765/ 

TCMIN=0 . 04 
TCMAX=0 . 16 
ALOMIN=-l . 5 
ALOMAX=ll . 0 

IF (T. LT.TCMIN) WRITE(6,21) T , TCMIN 
21 FORMAT ( ' ’ , 19X, 'T/C = ',F10.6,' IS LESS THAN (T/C)MIN = ' ,F10.6, 
&' OF FUNCTION HMLF ' / ) 

IF(T.GT.TCMAX) WRXTE(6,30) T , TCMAX 
30 FORMAT ( ' ’,19X,'T/C = ',F10.6,' IS GREATER THAN (T/C)MAX = ’, 
&F10.6,' OF FUNCTION HMLF’/) 

IF (ALPHAO . LT . ALOMIN) WRITE(6,40) ALPHAO , ALOMIN 
40 FORMAT ( ’ ’, 19X ,’ ALPHAO = ALPHA-ALPHLO = ',F10.6,' IS LESS THAN', 
&' ALPHAOMIN = ' , F10 . 6 , ' OF FUNCTION HMLF'/) 

IF ( ALPHAO. GT.ALOMAX) WRITE(6,50) ALPHAO, ALOMAX 
50 FORMAT ( ' ’, 19X, * ALPHAO = ALPHA-ALPHLO = ',F10.6,' IS GREATER', 

&’ THAN ALPHAOMAX = ',F10.6,' OF FUNCTION HMLF'/) 

C 

C IF (ALPHAO . LT . 3 . ) GO TO 12 

IMPROV=l 

IF ( IMPROV , EQ . 0 ) GO TO 12 
AL=ALPHAO 

IF ( ALPHAO. LE. 3.) ALPHAO=3. 

N = 2 
IS = 1 

IL=IS+N-1 

IF(T.LE.B(IL)) GO TO 2 

IL=25 

IS=IL-N+1 

IFCT.GE.B(IS)) GO TO 2 
IS=1 

I L= IS+N-1 

3 IF( (T-B(IS) )*(T-B(IL) ) .LE.O . ) GO TO 2 
IS=IL 
IL=IS+N-1 
GO TO 3 
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2 IF (ALPHAO .GT. 3.) GO TO 4 
DO 5 I=IS , IL 
X ( I - 1 S+ 1 ) = B ( I ) 

Y(I-IS+1)=C(I,1) 

5 CONTINUE 
GO TO 6 

4 JS=1 

JL=JS+N-1 

IF (ALPHAO . LE . A ( JL ) ) GO TO 7 

JL=17 

JS= JL-N+1 

IF (ALPHAO . GE . A( JS) ) GO TO 7 
JS-1 

JL= JS+N-1 

8 IF ( (ALPHAO- A ( JS) ) * ( ALPHAO-A( JL ) ) . LE . 0 . ) GO TO 7 
JS= JL 

JL=JS+N-1 
GO TO 8 

7 DO 9 J=JS , JL 
U( J-JS+1)«A(J) 

9 CONTINUE 

DO 10 I-IS,IL 
X ( I-IS+1 ) =B ( I ) 

DO 11 J= JS , JL 
V(J-JS+1)=C(I, J) 

11 CONTINUE 

Y( I-IS+1) =YLAGN(U,V f N, ALPHAO) 

10 CONTINUE 

6 HMLF=YLAGN(X,Y P N,T) 

AL PHAO=AL 

RETURN 

12 IF (ALPHAO . GT . -1.5) GO TO 13 
HMLF=0. 54 9359-0 . 001148* (T*100.) 

1 +0.001968*(T*100.)**2 
RETURN 

13 N=2 

IS=1 

IL=IS+N-1 

IF(T.LE.G(IL)) GO TO 14 
I L=6 

IS-IL-S+1 

IF(T.GE.GCIS)) GO TO 14 
IS»1 

IL=IS+N-1 

15 IF( (T-G(IS) ) *(T-G(IL) ) .LE.O . ) GO TO 14 
IS=IL 

IL-IS+N-l 
GO TO 15 

14 JS=1 

JL= JS+N-1 

16 IF ( ( ALPHAO-F ( JS) ) w (ALPHAO- F (JL)) .LE.O.) GO TO 17 
JS= J L 

JL= JS+N-1 
GO TO 16 

17 DO 18 J=JS r JL 
U ( J-JS+1) =F ( J ) 

18 CONTINUE 

DO 19 I = IS , IL 
X ( I-IS+1 ) =G ( I ) 

DO 20 J= JS , JL 
V ( J- JS+1) =E ( I , J) 

20 CONTINUE 

Y ( I-IS+1) =YLAGN(U,V P N, ALPHAO) 

■ 19 CONTINUE 

HMLF*=YLAGN (X,Y,N P T) 

RETURN 

END 
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FUNCTION CDFF (T , ALPHAO , HM) 

DIMENSION A(15) ,X(3) , Y(3) 

C DATA A = THICKNESS-CHORD RATIO 

DATA A/O. 09, 0.1, 0.11, 0.12, 0.13, 0.14 ,0.15, 0.16, 

1 0.17,0.19,0.21,0.23,0.25,0.30,0.35/ 

TCMIN=0 . 09 
TCMAX=0 . 35 

IF(T. LT.TCMIN) WRITE(6,20) T , TCMIN 
20 FORMAT ( ' ',19X,'T/C = ’,F10.6,' IS LESS THAN (T/C)MIN = *,F10.6, 

&’ OF FUNCTION CDFF'/) 

IF(T.GT.TCMAX) WRITE (6, 31) T , TCMAX 
31 FORMAT ( ' ’ ,19X,’T/C = ',F10.6,' IS GREATER THAN (T/C)MAX = *, 
&F10.6, 1 OF FUNCTION CDFF'/) 

IF ( T . GT . 0.16) GO TO 1 

IF ( (T . GT .0.09) .AND. ( ALPHAO . GT . 5 „ ) ) GO TO 1 
CDO=BOF(T, ALPHAO, HM)*COF(T, ALPHAO, HM) 

HMD=HMDF ( T , ALPHAO , HM ) 

CDS=0 . 

H-HM-HMD 

IF (H . GT . 0.) CDS=CDSF(T, ALPHAO, HM,H) 

IF (H . LE . 0 . 4 ) GO TO 5 
5 CDFF=CDO+CDS 
RETURN 

1 N = 2 
IS=1 

IL=IS+N-1 

IF(T.LE.A(IL) ) GO TO 2 

XL = 15 

IS=IL-N+1 

IF (T.GE . A( IS) ) GO TO 2 
IS=1 

IL=IS+N-1 

3 IF ( (T-A( IS ) ) * (T-A (IL)).LE.O.) GO TO 2 
IS= I L 
IL= IS+N-1 
GO TO 3 

2 DO 4 I=IS, IL 
J=I-IS+1 

X ( J ) =A ( I ) 

ALOMIN=3 . 0 
AL0MAX=11 . 0 
HMAX= 1.0 

IF (ALPHAO . LT .ALOMIN) WRITE(6,40) ALPHAO, ALOMIN 
40 FORMAT ( ' ’ , 19X, ' ALPHAO = ALPHA-ALPHLO = ' r F10.6,' IS LESS 1 , 

£.' THAN ALPHAOMIN = * ,F10.6,' OF FUNCTION CDFF 1 /) 

IF (ALPHAO . GT . ALOMAX) WRITE(6,50) ALPHAO , ALOMAX 
50 FORMAT ( 1 ', 19X, 1 ALPHAO = ALPHA-ALPHLO = ',F10.6,' IS GREATER 1 , 

&’ THAN ALPHAOMAX = ',F10.6,' OF FUNCTION CDFF 1 /) 

IF(HM.GT.HMAX) WRITE(6,65) HM , HMAX 
65 FORMAT ( 1 ',19X,’MACH NO. = '.FlO.e, 1 IS GREATER THAN MACH NO. 1 , 

& 1 (MAX) = 1 , F10 . 6 , 1 OF FUNCTION CDFF 1 /) 

GO TO (9,10,11,12,13,14,15,16,17,19,21, 

1 23,25,30,35) , I 

C DATA 1 CD . NO . F 1 : 'CD 1 = DRAG COEFFICIENT, ’.NO. 1 = THICKNESS-CHORD 

C RATIO 

9 Y(J)=CD9F(T, ALPHAO, HM) 

GO TO 4 

10 Y(J)=CD10F(T, ALPHAO, HM) 

GO TO 4 

11 Y(J)=CD11F(T, ALPHAO, HM) 

GO TO 4 

12 Y(J)=CD12F(T, ALPHAO, HM) 

GO TO 4 

13 Y(J)=CD13F(T, ALPHAO, HM) 

GO TO 4 

14 Y ( J) =CD14F (T , ALPHAO , HM) 

GO TO 4 

15 Y(J)=CD15F(T, ALPHAO, HM) 

GO TO 4 

16 Y(J)=CD16F(T, ALPHAO, HM) 

GO TO 4 

17 Y( J)=CD17F(T, ALPHAO, HM) 

GO TO 4 
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19 Y ( J ) =CD19F (T , ALPHAO , HM) 

GO TO 4 

21 Y(J)=CD21F(T, ALPHAO, HM) 

GO TO 4 

23 Y(J)=CD23F(T, ALPHAO, HM) 

GO TO 4 

25 Y(J)=CD25F(T, ALPHAO, HM) 

GO TO 4 

30 Y(J)=CD30F(T, ALPHAO, HM) 

GO TO 4 

35 Y( J )=CD35F (T, ALPHAO, HM) 

4 CONTINUE 

CDFF=YLAGN (X, Y , N , T) 

RETURN 

END 

C 

FUNCTION BOF(T, ALPHAO, HM) 

C BOF=BO 

C ALPHAO= EFFECTIVE ANGLE OF ATTACK 
C 

DIMENSION A(51) ,B(51) ,X(3) ,Y(3) 

C DATA IS FROM HAINES AND MONAGHAN, P. 1177, TABLE #6 

C DATA A = ALPHAO = ANGLE OF ATTACK WITH RESPECT TO ZERO LIFT LINE 

DATA A/-2. 0,-1. 8, -1.6, -1.4, -1.2, -1.0, -0 . 8 , -0 . 6 , -0 . 4 , 

1 -0. 2, 0. 0, 0.2,0. 4, 0.6 r 0. 8, 1.0,1. 2,1. 4,1. 6, 1.8, 2. 0,2. 2, 

2 2. 4, 2. 6, 2. 8, 3. 0,3.2, 3.4, 3,6, 3. 8, 4. 0,4. 2, 4. 4, 4.6, 4. 8, 5.0, 

3 5. 2, 5. 4, 5. 6, 5. 8, 6. 0,6. 2, 6. 4, 6. 6, 6. 8, 7. 0,7. 2, 7. 4, 7. 6, 7. 8,. 

4 8.0/ 

C 

C DATA B = FACTOR EXPRESSING DEPENDENCE OF LOW-SPEED DRAG ON 
C INCIDENCE (ALPHAO) 

DATA B/ 1.131, 1.114, 1.09 8, 1.082, 1.067, 1.054, 1.041, 1.030, 

1 1.019,1.009,1.000,0.994,0.987,0.983,0.979,0.976,0.974, 

2 0.973,0.972,0.971,0.972,0.974,0.976,0.978,0.980,0.982, 

3 0.985,0.989,0.994,0.999,1.005,1.012,1.020,1.028,1.037, 

4 1.047,1.057,1.067,1.078,1.090,1.103,1.117,1.132,1.147, 

5’ 1.162,1.17 9,1.197,1.216,1.235,1.255,1.276/ 

ALOMIN=-2 . 0 
ALOMAX=8.0 

IF ( ALPHAO. LT.ALOMIN) WRXTE(6,40) ALPHAO ,AL0MIN 
40 FORMAT ( ' 5 , 19X, ' ALPHAO = ALPHA-ALPHLO = ' ,F10.6,’ IS LESS’, 

&' THAN ALPHAOMIN * ’ ,F10.6,' OF FUNCTION BOF’/) 

IF ( ALPHAO, GT.ALOMAX) WRITE(6,50) ALPHAO ,ALOMAX 
50 FORMAT (' ' , 19X , ' ALPHAO = ALPHA-ALPHLO = ',F10.6,' IS GREATER', 

&' THAN ALPHAOMAX = ' ,F10.6,' OF FUNCTION BOF'/) 

C 

N=3 

IS-1 

IL-IS+N-1 

IF (ALPHAO . LE . A( IL) ) GO TO 1 

IL-51 

IS s IL-N+1 

I F ( AL PHAO .GE.A(IS)) GO TO 1 
IS-1 

IL-IS+N-1 

2 IF ( (ALPHAO- A ( IL ) ) * (ALPHAO- A ( IS) ) .LE. 0.) GO TO 1 
IS-IL 

IL-IS+N-1 
GO TO 2 

1 DO 3 I=IS , IL 
X( I-IS+1 ) =A( I ) 

Y ( I-IS+1) -B( I ) 

3 CONTINUE 

BOF*YLAGN(X,Y,N, ALPHAO) 

RETURN 

END 

C 

FUNCTION C0F(T, ALPHAO ,HM) 

C COF=CO 

C T=THICKNESS -CHORD RATIO 
C 

DIMENSION A(27) ,B(27) ,X(3) ,Y(3) 

C DATA IS FROM HAINES AND MONAGHAN, P.1177, TABLE #7 
C DATA A a THICKNESS-CHORD RATIO 
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DATA A/. 03, 

.035, 

.04, 

.045, 

.05, 

.055, 

.06, 

.065 

1 .07, 

.075, 

.08, 

.085, 

.09, 

.095, 

.10, 

.105, 

.11, 

2 .12, 

.125, 

.13, 

.135, 

.14, 

.145, 

.15, , 

.155, 

.16/ 


C DATA B = FACTOR EXPRESSING DEPENDENCE OF LOW-SPEED DRAG ON 
C THICKNESS 

DATA B/0. 007 45 ,0.00753, 0.00761, 0.00770 ,0.007 80 ,0.007 90, 

1 0.00800,0.00810,0.00820,0.00830,0.00840,0.00851,0.00862, 

2 0.00874,0.00886,0.00898,0.00910,0.00921,0.00932,0.00944, 

3 0.00957,0.00970,0.00983,0.00997,0.01010,0.01025,0.01040/ 

C 

TCMIN=0 . 03 
TCMAX-0 . 16 

IF (T . LT . TCMIN ) WRITE(6,20) T , TCMIN 
20 FORMAT ( ' ' ,19X,'T/C = ’,F10.6,’ IS LESS THAN (T/C)MIN = ' ,F10.6, 

&' OF FUNCTION COF’/) 

IF(T.GT.TCMAX) WRITE(6,30) T , TCMAX 
30 FORMAT ( ' ',19X,'T/C = ',F10.6,' IS GREATER THAN (T/C)MAX = ', 

&F10.6,' OF FUNCTION COF'/) 

N=2 

IS=1 

IL=IS+N-1 

IF (T . LE . A( IL) ) GO TO 1 

IL = 27 

IS-IL-N+l 

IF(T.GE.ACIS) ) GO TO 1 
IS“1 

IL-IS+N-1 

2 IF ( (T-A C IL ) ) * ( T-A ( IS) ) .LE. 0.) GO TO 1 
IS=IL 

IL=IS+N-1 
GO TO 2 

1 DO 3 I=IS, IL 
X(I-IS+1)*A(I) 

Y ( I-IS+1) =B ( I ) 

3 CONTINUE 
COF=YLAGN(X, Y,N,T) 

RETURN 

END 

C 

FUNCTION CDSF(T, ALPHAO, HM,H) 

C CDSF=CDS 
C H=M-MD 
C 

DIMENSION A(40) ,B(40) ,X(3) ,Y(3) 

C DATA IS FROM MACDOUGALL, P. 1033, TABLE #2 

C DATA A = (M-MD), WHERE M=LOCAL MACH NO., MD= CRITICAL MACH NO. 

C FOR DRAG AT WHICH DRAG DEPARTS FROM ITS LOW-SPEED VALUE 

DATA A/0. 01, 0.02, 0.03, 0.04, 0.05, 0.06, 0.07, 0.08, 0.09, 

1 0.10,0.11,0.12,0.13,0.14,0.15,0.16,0.17,0.18,0.19, 

2 0.20,0.21,0.22,0.23,0.24,0.25,0.26,0.27,0.28,0.29, 

3 0.30,0.31,0.32,0.33,0.34,0.35,0.36,0.37,0.38,0.39, 

4 0.40/ 

DATA B = DRAG COEFFICIENT 

DATA B/0. 0001, 0,0009, 0.0022, 0.004 0,0. 0063, 0.009 1,0. 0122, 

1 0.0154,0.0187,0.0221,0.0255,0.0288,0.0322,0.0356,0.0389, 

2 0.0423,0.0456,0.0490,0.0524,0.0557,0.0591,0.0625,0.0658, 

3 0.0692,0.0726,0.0759,0.0793,0.0826,0.0860,0.0894,0.0927, 

4 0.0961,0.0995,0.1028,0.1062,0.1096,0.1129,0.1163,0.1196, 

5 0.1230/ 

C 

HMIN=0.01 
HMAX=0. 40 

IF(H.LT.HMIN) WRXTE(6,10) H , HMIN 
10 FORMAT ( ' ' , 19X, * H = M-MD = ’ , F10 . 6, ’ IS LESS THAN HMIN = ' , 

&F10 . 6 , ' OF FUNCTION CDSF'/) 

IF(H.GT.HMAX) WRITE(6,20) H , HMAX 
20 FORMAT (' ' ,19X,'H = M-MD = ' ,F10.6,’ IS GREATER THAN HMAX * 

&F10.6,' OF FUNCTION CDSF'/) 

N=2 

IS-1 

IL-IS+N-1 

IF (HM . LE . A ( I L ) ) GO TO 1 
1 L = 4 0 
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IS-IL-N+1 

IF (HM.GE . A( IS) ) GO TO 1 
IS=1 

IL=IS+N-1 

2 IF ( ( HM-A ( I L ) ) * ( HM-A ( IS ) ) .LE. 0.) GO TO 1 
IS-IL 
IL-IS+N-1 
GO TO 2 

1 DO 3 1 = IS , IL 
X( I-IS+1 ) =A( I ) 

y ( i-is+i ) = b ( i ) 

3 CONTINUE 
CDSF=YLAGN(X r Y,N,H) 

RETURN 
END 

FUNCTION HMDF ( T , ALPHAO , HM) 

HMDF=MD 

ALPHAO= EFFECTIVE ANGLE OF ATTACK 
T=THICKNESS-CHORD RATIO 

DIMENSION A(18) r B(13) ,C(13,18) , U( 3 ) ,V(3) , X( 3 ) r Y(3) 

C 

C DATA IS FROM MACDOUGALL, PP. 1032-33, TABLES #1A&B 
C DATA A = ALPHAO = ANGLE OF ATTACK WITH RESPECT TO ZERO LIFT LINE 
DATA A/-1.5 , -1. 0,-0. 5,0. ,0.5,1. 0,1.5 ,2. 0,2.5, 3.0, 

1 3. 5, 4. 0,4. 5, 5. 0,5. 5, 6.0,6. 5,7.0/ 

C DATA B = THICKNESS-CHORD RATIO 

DATA B/.045, .05, .06, .07, .08, .09, .10, .11, 

1 .12, .13, .14, .15, .16/ 

C DATA C - CRITICAL MACH NO. FOR DRAG AT WHICH THE DRAG DEPARTS 
C FROM ITS LOW-SPEED VALUE 
DATA (C ( I , 1) , 1=1 , 13 ) / 

1 0.718,0.705,0.674,0.627, 

1 0.620,0.5915,0.560,0.5255,0.5015,0.4715, 

1 0.4435,0.412,0.378/ 

DATA (C( I , 2 ) , 1=1 , 13) / 

2 0.763,0.749,0.718,0.675, 

2 0.6575,0.629,0.599,0.5705,0.5425,0.514,0.487, 

2 0.4575,0.4265/ 

DATA (C(I, 3) ,1=1,13)/ 

3 0.800,0.785,0.755,0.715, 

3 0.690,0.6625,0.634,0.6065,0.5795, 

3 0.5525,0.5265,0.499,0.471/ 

DATA (C ( I , 4 ) , 1=1 , 13 ) / 

4 0.820,0.811,0.782,0.750,0.728,0.709,0.691,0.674, 

4 0.658,0.64 3,0.629,0.-614,0.600/ 

DATA (C< T 31 T = 1 T3W 

5 0. 810, 0. 817 ,'o. 800, 0.77 4, 0.7 50, 0.7 28, 0.7 09, 0.690, 

5 0.672,0.656,0.640,0.625,0.613/ 

DATA (C(I, 6) , 1=1,13)/ 

6 0.787,0.805,0.808,0.790,0.768,0.746,0.725,0.705, 

6 0.685,0.667,0.651,0.637,0.625/ 

DATA (C(I, 7) , 1=1,13)/ 

7 0.762,0.785,0.806,0.799,0.776,0.755,0.735,0.715,0.696, 

7 0.678,0.661,0.647,0.637/ 

DATA (C(I, 8) , 1=1,13)/ 

8 0.735,0.761,0.796,0.800,0.774,0.752,0.732,0.715, 

8 0.698,0.682,0.667,0.655,0.646/ 

DATA (C(l 91 T=1 131/ 

9 0. 707, 0. 735,' 0. 77 9, 0.7 95, 0.7 66, 0.7 41, 0.7 16, 0.699, 0.684, 

9 0.671,0.662,0.654,0.648/ 

DATA (C(I, 10) , 1=1,13)/ 

$ 0.680,0.707,0.756,0.781,0.752,0.724,0.697,0.681, 

$ 0.667,0.657,0.650,0.643,0.637/ 

DATA (C(I, 11) ,1=1,13)/ 

1 0.651,0.680,0.731,0.761,0.733,0.705,0.678,0.662,0.648, 

1 0.639,0.632,0.626,0.621/ 

DATA (C(I, 12) , 1=1,13)/ 

2 0.621,0.650,0.702,0.737,0.713,0.684,0.660,0.644, 

2 0.630,0.620,0.611,0.605,0.600/ 

DATA (C(I, 13) ,1=1,13)/ 

3 0.593,0.620,0.671,0.708,0.690,0.672,0.642,0.626,0.612, 
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3 0.602,0.593,0.586,0.580/ 

DATA (C(I, 14) , 1=1, 13)/ 

4 0.565,0.591,0.641,0.679,0.663,0.641,0.625,0.610, 

4 0.597,0.587,0.580,0.574,0.570/ 

DATA (C ( I , 15) ,1=1,13)/ 

5 0.537,0.563, 0.611, 0.649, 

5 0.6605,0.6715,0.6825,0.6935, 

5 0.7055,0.7185,0.734,0.7495,0.7665/ 

DATA (C ( I , 16) ,1=1,13)/ 

6 0.509,0.535, 0.583, 0.620, 

6 0.6325,0.646,0.6595,0.671,0.6835, 

6 0.6965,0.713,0.729,0.747/ 

DATA (C(I, 17) ,1=1,13)/ 

7 0.481,0.507, 0.556, 0.590, 

7 0.601,0.614,0.627,0.636,0.646, 

7 0.656,0.6705,0.684,0.700/ 

DATA (C(I, 18) , 1=1, 13)/ 

8 0.453,0.479, 0.529, 0.564, 

8 0.5735,0.588,0.6025,0.611,0.6205, 

8 0.6295,0.644,0.657,0.673/ 

TCMIN=0 .045 
TCMAX=0 . 16 
ALOMIN=-l . 5 
A LOMAX =7 .0 

IF(T. LT.TCMIN) WRITE(6,20) T , TCMIN 
20 FORMAT ( ' ’,19X, 'T/C = ',F10.6,' IS LESS THAN (T/C)MIN = ’,F10.6, 

&' OF FUNCTION HMDF ' / ) 

IF(T.GT.TCMAX) WRITE(6,30) T, TCMAX 
30 FORMAT ( ' ' , 19X , 'T/C = ' ,F10.6,' IS GREATER THAN (T/C)MAX = ’, 

&F10.6,' OF FUNCTION HMDF'/) 

IF ( ALPHAO . LT . ALOMIN ) WRITE(6,40) ALPHAO , ALOMIN 
40 FORMAT ( ' ’ , 19X, ' ALPHAO = ALPHA- ALPHLO = ' ,F10.6,’ IS LESS', 

&' THAN ALPHAOMIN = ’,F10.6,’ OF FUNCTION HMDF’/) 

IF (ALPHAO . GT . ALOMAX) WRITE(6,50) ALPHAO, ALOMAX 
50 FORMAT(' ', 19X, ' ALPHAO = ALPHA- ALPHLO = ' ,F10.6,'IS GREATER', 

&' THAN ALPHAOMAX = ',F10.6,' OF FUNCTION HMDF'/) 

N®2 

IS=1 

I L= 1S+N-1 

IF (T . LE . B ( IL) ) GO TO 1 

IL=13 

IS=IL~N+1 

IF (T . GE . B ( IS) ) GO TO 1 
IS=1 

IL=IS+N-1 

2 IF( (T-B(IS) ) *(T-B ( IL ) ) .LE.O.) GO TO 1 
IS=I L 

ILsIS+N-1 
GO TO 2 
1 JS=1 

JL=JS+N-1 

IF (ALPHAO .LE.A(JL)) GO TO 3 
JL = 18 
JS= JL-N+1 

IF (ALPHAO . GE . A( JS) ) GO TO 3 
JS=1 

JL=JS+N~1 

4 IF( (ALPHAO-A(JS) )*(ALPHAO-A(JL) ) .LE.O. ) GO TO 3 
JS= JL 

JL= JS+N-1 
GO TO 4 

3 DO 5 J=JS,JL 
U(J-JS+1)=A(J) 

5 CONTINUE 

DO 6 I=IS,IL 
X(I-IS+i)=B(I) 

DO 7 J=JS, JL 
V(J-JS+1)=C(I, J) 

7 CONTINUE 

Y ( I- IS+1)=YLAGN(U, V,N, ALPHAO) 

6 CONTINUE 
HMDF=YLAGN (X, Y , N , T) 

RETURN 

END 
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no n n noon non 


FUNCTION CD9F (T , ALPHAO , HM) 

DIMENSION AO ( 4 ) ,HM5(7) r HM6(7) ,HM7(7) ,HM8(7) , 

$ CD 5 ( 7 ) , CD6 ( 7 ) , CD 7 ( 7 ) , CD 8 ( 7 ) 

DIMENSION HM3 ( 1 ) , HM4 ( 1) , HM9 ( 1 ) P HM10(1) , 

1 CD3(1) , CD4 ( 1) , CD 9 (1),CD10(1) ,CD11(1) 

DATA IS FROM MACDOUGALL, P. 1036, FIG. 5 

DATA AO = ALPHAO ~ ALGLE OF ATTACK WITH RESPECT TO ZERO LIFT LINE 
DATA * HM . NO . ' : ' HM ' = MACH N0. p '.NO.' = MACH NO. *10 

DATA 'CD. NO.': 'CD' » DRAG COEFFICIENT, '.NO.' = MACH NO . *10 

DATA AO/5.,6.,7. ,8./ 

DATA HM5/0 . 6545 , 0.66364, 0.67273, 0.68182, 0.7, 

$ 0.8, 0.9/ 

DATA CD5/0. 00909, 0.00982, 0.01091, 0.01327, 0.01818, 

$ 0.05018, 0.08545/ 

DATA HM6/0. 62727, 0.63636, 0.64545, 0.65455, 0.7, 

$ 0.8, 0.9/ 

DATA CD6/0. 00945, 0.01, 0.01091, 0.01273, 0.02727, 

$ 0.06182, 0.1/ 

DATA HM7/0. 60909, 0.61818, 0.62727, 0.63636, 

$ 0.7, 0.8, 0.9/ 

DATA CD7/0. 01073, 0.01109, 0.01273, 0.01455, 

■ $ 0.03655, 0.07636, 0.12273/ 

DATA HM8/0.6, 0.60909, 0.61818, 0.62727, 0.7, 

$ 0.8, 0.9/ 

DATA CD8/0. 01273, 0.01455, 0.01636, 0.01818, 

$ 0.04682, 0.09455, 0.14764/ 

CD9F=CDTHKF ( T , ALPHAO , HM , AO , 4 , 

1 HM5 , HM6 , HM7 , HM8 , HM3 , HM4 , HM9 , HM10 , HM11 , 

2 CD 5 , CD6 , CD7 , CD8 , CD3 , CD4 , CD9 , CD10 , CD11 , 

3 7, 7, 7, 7, 0,0, 0,0,0) 

RETURN 

END 

FUNCTION CD10F(T, ALPHAO, HM) 

DIMENSION AO ( 7 ) , HM5 ( 10 ) , CD5 ( 10 ) ,HM6(10) ,CD6(10) , 

1 HM7 ( 10 ) , CD7 ( 10 ) , HM8 ( 10 ) , CD8 ( 10 ) ,HM9(10) ,CD9(10) , 

2 HM10 ( 12 ) , CD10 ( 12 ) , HM11 ( 12 ) , CD11 ( 12 ) 

DIMENSION HM3 ( 1 ) , HM4 ( 1 ) , CD3 ( 1 ) , CD4 ( 1 ) 


DATA IS 

FROM MACDOUGALL, P. 1036 

, FIG 

i. 6 


DATA 

AO/5. ,6. ,7. ,8. ,9. ,10. ,11 

./ 



DATA 

HM5/.62, .63, .64, .65, 

.66, 

.67, .7, .8, . 

9, 1./ 

DATA 

CD5/.0086, .009, .01, .0109, 

.013, .0158, . 

024, 

1 .058 

, .0906, .124/ 




DATA 

HM6/.6, .61, .62, .63, . 

64, . 

65, .7, .8, .9,1 

./ 

DATA 

CD6/.0094, .01, .0108, . 

012, 

.0138, .016, . 

03, 

1 .065 

, .105, .149/ 




DATA 

HM7/.58, .59, .60, .61, 

.62, 

.63, .7, .8, . 

9, 1./ 

DATA 

CD7/.01, .0104, .011, .0121, 

.0141, .018, . 

04, 

1 .07 8 

, .128, .184/ 




DATA 

HM8/.57, .58, .59, .60, 

.61, 

.62, .7, .8, . 

9, .97/ 

DATA 

CD8/.0112, .012, .0136, 

.016, 

.019, .0222, 

.05, 

1 .098 

, .154, .2/ 




DATA 

HM9/ .54, .55, .56, .57, 

.58, 

.59, .7, .8, 

.9, .91/ 

DATA 

CD9/.012, .0128, .0138, 

.016, 

.018, .0216, 

.067, 

1 .1224, .192, .2/ 




DATA 

HM10/.52, .53, .54, .55, 

.56, 

.57, .58, .59 

, .6, .7 

1 .8, 

.86/ 




DATA 

CD10/.014, .0142, .016, .017, .0198, .022, .026, 


1 .03, 

.034, .086, .151, .2/ 




DATA 

HM11/.5, .51, .52, .53, 

.54, 

. 55 , . 56 , . 57 , 

.6, .7, 

1 .8, 

.82/ 




DATA 

CD11/.016, .01618, .0164 

, .0176, .02, .023, 

.0262, 

1 .03, 

.045, .103, .178, .2/ 





CD10F=CDTHKF ( T , ALPHAO , HM , AO , 7 , 

1 HM5 , HM6 , HM7 , HM8 , HM9 , HM10 , HM11 , HM3 , HM4 , 

2 CD5 , CDS , CD7 , CD8 , CD9 , CD10 , CD11 , CD3 , CD4 , 

3 10,10,10,10,10,12,12,0,0) 

RETURN 

END 
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FUNCTION CD11F (T , ALPHAO , HM) 

DIMENSION AO ( 6 ) , HM5 ( 9 ) , CD5 ( 9 ) , HM6 ( 9 ) , CD6 ( 9 ) r 

1 HM7 ( 9 ) , CD7 ( 9 ) , HM8 ( 9 ) , CD8 ( 9) r HM9 ( 11 ) r CD9(ll) , 

2 HM10 ( 9 ) ,CD10 ( 9 ) 

DIMENSION HM3(1) ,HM4(1) f HMll(l) ,CD3(1) ,CD4(1) , 

1 CD II ( 1 ) 

C DATA IS FROM MACDOUGALL , P . 1037, FIG. 7 
DATA A0/5.,6.,7.,8.,9.,10./ 

DATA HM5/. 627 27, .63636, .64545,-65455, .66364, .67273, 
1 .7, .8, .9/ 

DATA CD5/. 00903, .01, .01109, .01291, .01545, .01855, 

1 .02727, .06182, .09818/ 

DATA HM6/.6, .60909, .61818, .62727, .63636, .64545, 

1 .7, .8, .9/ 

DATA CD6/. 00964, .01, .01091, .01209, .01455, .01636, 

1 .03327, .06909, .11018/ 

DATA HM7/. 57273, .58182, .59091, .6, .60909, .61818, 

1 .7, .8, .9/ 


DATA CD7/. 01036, 
1 .04364, .08545, 

.01064, . 
.134/ 

Oil, . 

01182, . 

01345, . 

01545, 

DATA HM8/. 56364, 

.57273, . 

58182, 

.59091, 

.6, .60909, .7 

2 .8, .9/ 

DATA CD8/. 01091, 
1 .05455, .10455, 

.01136, . 
.16273/ 

01273, 

.01455, 

.01636, 

.01909 

DATA HM9/. 53636, 

1 .6, .64545, .7,. 

.54545, . 
8, .88182/ 

55454, 

.56364, 

.57273, 

.58182 

DATA CD9/. 01182, 
1 .02491, .03291, 

.01218, . 
.07091, . 

01273, 

12909, 

.01427 , 
.18/ 

.01636, 

.01864 

DATA HM10/. 52727, 

.53636, 

.54545 

, .55454 

, .56364 

» * 6 » 

1 .64545, .7, .8/ 

DATA CDIO/. 01273, .01309, 
1 .06, .08909, .15636/ 

.01455 

, .01636 

, .02, . 

0360, 


CD1 1F=CDTHKF ( T , ALPHAO , HM , AO , 6 , 

1 HM5 , HM6 , HM7 , HM8 , HM9 , HM10 , HM11 , HM3 , HM4 , 

2 CD 5 , CD 6 , CD7 , CD8 , CD9 , CDIO , CD11 , CD3 , CD 4 , 

3 9,9,9,9,11,9,0,0,0) 

RETURN 

END 

C 

FUNCTION CD12F(T, ALPHAO, HM) 

DIMENSION AO ( 6 ) , HM5 ( 10 ) , CD5 ( 10 ) , HM6 ( 11 ) , CD6 ( 11) , 

1 HM7 ( 11 ) , CD 7 ( 11 ) , HM8 ( 11 ) , CD8 ( 11 ) , HM9 ( 11 ) , CD 9 ( 11) , 

2 HM10(12) ,CD10(12) 

DIMENSION HM3 ( 1 ) ,HM4(1) , HM11 ( 1 ) , CD3 (1) , CD 4(1) ,CD11(1) 

C DATA IS FROM MACDOUGAL , P. 1037, FIG. 8 
DATA AO/5 .,6. ,7. ,8. ,9. ,10./ 

DATA HM5/.59, .6, .61, .62, .63, .64, .65, .7, .8, .9/ 

DATA CD5/.0099, .01020, .01140, .013, .015, .017, .0198, 

1 .034, .066, .10/ 

DATA HM6/.57, .58, .59, .6, .61, .62, .63, .64, .7, .8, .9/ 

DATA CD6/. 0102, .011, .012, .013, .0147, .0164, .018, .02, 

1 .038, .074, .1150/ 

DATA HM7/.55, .56, .57, .58, .59, .60, .61, .65, .7, .8, .9/ 

DATA CD7/.0112, .0114, .012, .0136, .0156, .0169, .019, .03, 

1 .048, .0886, .14/ 

DATA HM8/.54, .55, .56, .57, .58, .59, .6, .65, .7, .8, .9/ 

DATA CD8/.012, .0122, .014, .015, .0179, .02, .0221, .04, .06, 

1 .11, .168/ 

DATA .HM9/.52, .53, .54, .55, .56, .57, .6, .65, .7, .8, .9/ 

DATA CD9/.012, .013, .014, .016, .018, .02, .03, .05, .074, 

1 .1302, .20/ 

DATA HM10/.51, .52, .53, .54, .55, .56, .57, .6, .65, .7, .8, .85/ 
DATA CDIO/. 014, .0144, .016, .018, .02, .0237, .026, .04, .0638, 

1 .092, .158, .20/ 

CD12F=CDTHKF ( T , ALPHAO , HM , AO , 6 , 

1 HM5 , HM6 , HM7 , HM8 , HM9 , HM10 , HM11 , HM3 , HM4 , 

2 CD5 , CD6 , CD7 , CD8 , CD 9 , CDIO , CD11 , CD3 , CD4 , 

3 10,11,11,11,11,12,0,0,0) 

RETURN 

END 

C ® 

FUNCTION CD13F(T, ALPHAO, HM) 

DIMENSION AO ( 6 ) , HM5 ( 5 ) , CD5 (5) , HM6 ( 8 ) , CD6 ( 8 ) , HM7 ( 8 ) , CD7 ( 8 ) , 

1 HM8 ( 9 ) , CD8 ( 9) , HM9 (9) , CD9 ( 9 ) , HM10 ( 8 ) , CDIO (8) 
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DIMENSION HM3 ( 1 ) ,HM4(1) , HM11 ( 1 ) , CD3 (1) , CD 4(1) , CD11 ( 1 ) 

C DATA IS FROM MACDOUGALL, P.1038, FIG. 9 
DATA AO/5., 6., 7., 8., 9., 10./ 

DATA HM5/.58, .59, .6, .7, .9/ 

DATA CD5/.01, .0102, .011, .038, .1027/ 

DATA HM6/.57, .58, .59, .6, .63, .7, .8, .9/ 

DATA CD6/.0103, .011, .012, .014, .02, .042, .078, .12/ 

DATA HM7/.56, .57, .58, .59, .6, .7, .8, .9/ 

DATA CD7/.0112, .012, .0134, .0154, .018, .05, .096, .146/ 

DATA HM8/.54, .55, .56, .57, .58, .6, .7, .8, .9/ 

DATA CD8/. 012, .013, .014, .016, .018, .0254, .064, .114, .174/ 

DATA HM9/.52, .53, .54, .55, .56, .6, .7, .8, .9/ 

DATA CD9/.0132, .0139, .0142, .016, .018, .034, .078, 

1 .1362, .2/ 

DATA HM10/.51, .52, .53, .54, .6, .7, .8, .845/ 

DATA CD10/.014, .01416, .016, .02, .042, .092, .1622, .2/ 

CD13F = CDTHKF ( T , AL PHAO , HM , A0 , 6 , 

1 HM5 , HM6 , HM7 , HM8 , HM9 , HM10 , HM11 , HM3 , HM4 , 

2 CD 5 , CD6 , CD7 , CD8 , CD9 , CD10 , CD11 , CD3 , CD4 , 

3 5,8,8, 9,9, 8, 0,0,0) 

RETURN 

END 


FUNCTION CD14F (T , ALPHAO , HM) 

DIMENSION AO ( 6 ) , HM5 ( 7 ) , CD5 ( 7 ) , HM6 ( 8 ) , CD6 ( 8 ) , HM7 ( 9 ) ,CD7(9), 
1 HM8 ( 9 ) , CD 8 ( 9 ) , HM9 (9), CD 9(9), HM10 ( 8 ) ,CD10(8) 

DIMENSION HM3 ( 1 ) , HM4 ( 1 ) , HM11 ( 1 ) , CD3 (1), CD 4(1), CD11 ( 1) 


DATA IS 

FROM MACDOUGALL, P. 1038, FIG. 10 




DATA 

A0/5.,6.,7.,8.,9.,10./ 





DATA 

HM5/.58, .59, .6, .61, 

.7, .8, .9/ 




DATA 

CD 5/ . 01 , .01018, .0112, 

.014, .04, 

.074, 

.1079/ 


DATA 

HM6/.57, .58, .59, .6, 

. 61 , . 7 , . 8 , 

.9/ 



DATA 

CD6/.0108, .012, .014, 

.0156, .018, 

.047, 

.084, 

.128/ 

DATA 

HM7/.55, .56, .57, .58, 

.59, .6, .7 

, . 8 , 

.9/ 


DATA 

CD7/.0114, .012, .0132, 

.0156, .018 

, .02, 

.058, 

.102, 

1 .1526/ 





DATA 

HM8/.53, .54, .55, .56, 

.57, .6, .7 

, .8, 

.9/ 


DATA 

CD8/.012, .0128, .014, 

.016, .02, . 

0286, 

.07, . 

12, .1822/ 

DATA 

HM9/.51, .52, .53, .54, 

.55, .6, .7 

, . 8 , 

.88/ 


DATA 

CD9/.0136, .0138, .0144 

, .016, .02, 

.038, 

.082, 

.1424, .2/ 

DATA 

HM10/.5, .51, .52, .53, 

.6, .7, .8, 

.84/ 


DATA 

CD10/.014, .0144, .016, 

.018, .048, 

.098, 

.166, 

.2/ 


CD1 4 F = CDTHKF ( T , ALPHAO , HM , AO , 6 , 

1 HM5 , HM6 , HM7 , HM8 , HM9 , HM10 , HM11 , HM3 , HM4 , 

2 CD5 , CD6 , CD 7 , CD8 , CD9 , CD10 , CDll , CD3 , CD4 , 

3 7, 8, 9, 9, 9, 8, 0,0,0) 

RETURN 

END 


FUNCTION CD15F(T, ALPHAO, HM) 

DIMENSION AO ( 6 ) , HM5 ( 7 ) , CD5 ( 7 ) , HM6 ( 9 ) , CD6 ( 9 ) , HM7 ( 10 ) , CD7 ( 10 ) , 
1 HM8 ( 11) , CD 8 ( 11 ) , HM9 ( 9 ) , CD 9 ( 9 ) , HM10 ( 10 ) , CD 10 ( 10 ) 

DIMENSION HM3 ( 1 ) , HM4 ( 1 ) , HM11 ( 1 ) , CD3 ( 1 ) , CD4 ( 1 ) , CDll ( 1 ) 

C DATA IS FROM MACDOUGALL, P.1039, FIG. 11 
DATA AO/5., 6., 7., 8., 9., 10./ 


DATA 

HM5/.57, .58, .59, .6, 

.7, .8 

, .9/ 




DATA 

CDS/. 01, .0104, .0114, 

.013, 

.042, .076, 

.11/ 



DATA 

HM6/.55, .56, .57, .58, 

.59, 

.6, .7, .8, 

.9/ 



DATA 

CD6/.0104, .0108, .012, 

.014, 

.016, .018, 

.05, 

.09, 

.1334/ 

DATA 

HM7/.53, .54, .55, .56, 

.57, 

.58, .6, .7, 

.8, . 

9/ 

DATA 

CD7/.0113, .012, .0124, 

.014, 

.016, .02, 

.025, 

.062, 


1 .106 

if • 16/ 






DATA 

HM8/.51, .52, .53, .54, 

.55, 

.56, .57, .6 

, .7, 

.8, . 

9/ 

DATA 

CD8/.012, .0122, .014, 

.015, 

.0172, .02, 

.022, 

.032, 


1 .07378, .126, .19/ 






DATA 

HM9/.5, .51, .52, .53, 

.54, . 

CO 

r- 

VO 

87/ 



DATA 

CD9/.0134, .0136, .014, 

.016, 

.02, .04, . 

086, . 

148, 

.2/ 

DATA 

HM10/.5, .51, .52, .53, 

.54, 

.55, .6, .7, 

.8, . 

835/ 

DATA 

CD10/.0147, .0155, .017, 

r .02, 

.024, .028, 

.0496 

, .1032, 


1 .172, .2/ 

CD1 5F=CDTHKF ( T , ALPHAO , HM , AO , 6 , 

1 HM5 , HM6 , HM7 , HM8 , HM9 , HM10 , HM11 , HM3 , HM4 , 
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c 


c 


c 


c 


2 CDS , CD6 , CD7 , CD8 , CD9 , CD10 , CD11 , CD3 , CD 4 , 

3 7,9,10,11,9,10,0,0,0) 

RETURN 

END 


FUNCTION CD16F (T , ALPHAO , HM) 

DIMENSION AO (7) , HM5 ( 6 ) , CD5 ( 6 ) , HM6 ( 9 ) , CD6 ( 9 ) , HM7 (10) ,CD7(10) , 

1 HM8 (11) , CD 8(11) , HM9 (10) , CD 9(10) , HM10 ( 11 ) , CD10 ( 11 ) , HM11 ( 11 ) , 

2 CDll(ll) 

DIMENSION HM3 ( 1 ) , HM4 ( 1 ) , CD3 ( 1 ) ,CD4(1) 

DATA IS FROM HAINES AND MONAGHAN, P. 1187, FIG. 8 
DATA AO/ 5., 6., 7., 8., 9., 10., 11./ 

DATA HM5/.55, .56667, .5833, .6, .65, .9/ 


DATA CD5/. 01083, 

.01233, . 

015 

, .01833, .03333, 

, .118/ 


DATA HM6/. 51667, 

.53333, . 

55, 

.56667, .6, .65, 

r .7, .8, 

.9/ 

DATA CD6/. 01167, 

.01267, . 

015 

, .01833, .02667, 

, .0425, 

.06, 

.10167, .14783/ 

DATA HM7/.4833, , 

.5, .51667 

f • 

53333, .55, .6, , 

.65, .7, 

.8, .9/ 

DATA CD7/. 01217, 
.07033, .11833, 

.01267, . 

.178/ 

015 

, .01742, .02167, 

, .03333, 

.05167 

DATA HM8/. 46667, 

.48333, . 

5, 

.51667, .55, .6, 

.65, .7, 

.75, 

.8, .9/ 

DATA CD8/. 01283, 

.013333, 

.01575, .01942, .02708, .04333, .06 


1 .08267, .105, .13667, .20192/ 


DATA HM9/. 46667, 

.48333, 

.5, .5333, .55, 

.6, .7, .75, 

.8, 

.89417/ 

DATA CD9/. 01333, 
.12167, .15733, 

.01583, 

.23/ 

.01933, .02667, 

.0315, .04833 

, .095 

DATA HM10/.4625, 

.48333, 

.5, .525, .55, 

.6, .65, .7, . 

75, 

.8, .85833/ 

DATA CD10/.015, 

.01867, 

.02217, .03, .03708, .05667, . 

0815, 


1 .11, .14217, .18133, .23/ 

DATA HM11/.45, .45833, .46667, .5, .525, .6, .65, .7, .75, 

1 .8, .81667/ 

DATA CD11/. 01667, .01717, .01917, .02667, .03667, .06617, 

1 .09367, .12633, .165, .212, .23/ 

CD16F=CDTHKF ( T , ALPHAO , HM , AO , 7 , 

1 HM5 , HM6 , HM7 , HM8 , HM9 , HM10 , HM11 , HM3 , HM4 , 

2 CD 5 , CD6 , CD7 , CD8 , CD9 , CD10 , CD11 , CDS , CD 4 , 

3 6,9,10,11,10,11,11,0,0) 

RETURN 

END 


FUNCTION CD17F(T, ALPHAO, HM) 

DIMENSION AO ( 9 ) , HM3 ( 4 ) , CD3 ( 4 ) , HM4 ( 7 ) , CD4 ( 7 ) , CDS ( 6 ) , HM5 ( 6 ) , 

1 HM6 ( 8 ) , CD6 ( 8 ) , HM7 ( 8 ) , CD7 ( 8 ) , HM8 ( 8 ) , CD8 ( 8 ) , HM9 ( 11 ) ,CD9(11) , 

2 HM10 ( 9 ) , CD 10 ( 9 ) , HM11 ( 10 ) , CD11 ( 10) 

DATA IS FROM HAINES AND MONAGHAN, P. 1188, FIG. 9 
DATA AO/3., 4., 5., 6., 7., 8., 9., 10., 11./ 

DATA HM3/.64, .65, .7, .8/ 

DATA CD3/.01, .011, .027, .068/ 

DATA HM4/.59, .6, .62, .63, .65, .7, .8/ 

DATA CD4/.01, .011, .013, .015, 

DATA HM5/.57, .58, .6, .65, .7, 

DATA CD5/. 01125, .012, .01545, 

DATA HM6/.54, .55, .56, .57, 

DATA CD6/.01225, .0125, .015, 

DATA HM7/.52, .53, .54, .55, 

DATA CD7/.014, .015, .0154, .t 
DATA HM8/.5, .51, .52, .53, .! 

DATA CD8/.015, .016, .017, .0: 

DATA HM9/.49, .5, .51, .53, .< 

DATA CD9/. 01625, .0175, .02, , 

1 .1025, .13375, .1675/ 

DATA HM10/.47, .48, .5, .52, 

DATA CD10/.0175, .01875, .022, 

1 .19/ 

DATA HM11/.46, .47, .5, .52, , 

DATA CD11/. 01925, .02, .026, , 

1 .2175/ 

CD17 F=CDTHKF (T , ALPHAO , HM , AO , 9 , 

1 HM3 , HM4 , HM5 , HM6 , HM7 , HM8 , HM9 , HM10 , HM11 , 

2 CD3 , CD4 , CDS , CD6 , CD7 , CD8 , CD9 , CD10 , CD11 , 

3 4,7,6,8,8,8,11,9,10) 


.021 

, .0275, . 

08/ 

.8/ 




.0325 

, .0525, . 

095/ 

58, .6 

, .61 

, -8/ 


.016, 

.0195 

, .025, .02975, .11/ 

57, .6 

, .75 

, .8/ 


118, .025, . 

0355, 

.1035, .130/ 

i 5 , .6 , 

.7, 

.8/ 


:, .025 

, .044 

, .095, .1475/ 

i5, .57 

, . 6 , 

.65, 

.7, .75, .8/ 

025, . 

0315, 

.04, 

.052, .075, 

55, .6 

, .65 

, -7, 

.8/ 

.0275 

, .03875, 

.06, .086, .1185, 

55, .6 

, .65 

, -7, 

.75, .8/ 

034, . 

045, 

.07, 

.1, .135, .1965, 
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RETURN 

END 


FUNCTION CD19F (T , ALPHAO , HM) 

DIMENSION AO ( 9 ) , HM3 ( 6 ) , CD3 ( 6 ) ,HM4(6) , CD4 ( 6 ) , HM5 ( 5 ) ,CD5(5) r 

1 HM6 ( 7 ) , CD6 ( 7 ) , HM7 ( 7 ) , CD7 ( 7 ) , HM8 ( 8 ) r CD 8 ( 8 ) , HM9 (9) , CD9 ( 9 ) , 

2 HM10 ( 9 ) , CD10 ( 9 ) ,HM11 (9) , CD11(9) 

C DATA IS FROM HAINES AND MONAGHAN, P. 1188, FIG. 10 
DATA AO/ 3., 4., 5., 6., 7., 8., 9., 10., 11./ 

DATA HM3/.59, .61, .63, .65, .67, .8/ 

DATA CD3/.01, .0105, .01425, .02, .0275, .0925/ 

DATA HM4/.56, .59, .61, .63, .65, .8/ 

DATA CD 4/ . 0105 , .012, .01575, .02175, .03, .1025/ 

DATA HM5/.54, .56, .59, .61, .8/ 

DATA CD5/.0125, .014, .0175, .0245, .11625/ 

DATA HM6/.51, .54, .56, .59, .61, .75, .8/ 

DATA CD6/.014, .015, .0175, ,025, .034, .1085, .1355/ 

DATA HM7/.49, .51, .54, .56, .59, .75, .8/ 

DATA CD7/.015, .0154, .02, .025, .035, .124, .1515/ 

DATA HM8/.47, .49, .51, .54, .56, .59, .75, .8/ 

DATA CD8/.016, .0175, .02, .025, .0315, .045, .1385, .171/ 

DATA HM9/.45, .47, .49, .51, .54, .56, .59, .75, .8/ 

DATA CD9/.0175, .01925, .02025, .025, .032, .04, .055, .1505, 

1 .1875/ 

DATA HM10/.45, .47, .49, .51, .54, .56, .59, .75, .8/ 

DATA CD10/. 01925, .02125, .025, .03, .04, .049, .065, .17, 

1 .2085/ 

DATA HM11/.45, .47, .49, .51, .54, .56, .59, .75, .8/ 

DATA CD11/.02, .02475, .0295, .035, .0465, .059, .0754, .19125, 
1 .236/ 

CD19F=CDTHKF (T , ALPHAO , HM , AO , 9 , 

1 HM3 , HM4 , HM5 , HM6 , HM7 , HM8 , HM9 , HM10 , HM11 , 

2 CD3 , CD 4 , CD 5 , CD6 , CD7 , CDS , CD9 , CD10 , CD11 , 

3 6, 6, 5, 7, 7, 8, 9, 9, 9) 

RETURN 

END •» 

C 

FUNCTION CD21F(T, ALPHAO, HM) 

DIMENSION AO ( 9 ) , HM3 ( 6 ) , CD3 ( 6 ) , HM4 ( 6 ) , CD 4(6) ,HM5(6),CD5(6) , 

1 HM6 (7) , CD6 (7 ) , HM7 (6) , CD7 (6) , HM8 (7 ) , CD8 (7 ) , HM9 (7 ) , CD9 (7 ) , 

2 HM10 ( 6 ) , CD 10 ( 6 ) , HM11 (7 ) , CD11 ( 7 ) 

C DATA IS FROM HAINES AND MONAGHAN, P. 1189, FIG. 11 
DATAAO/3., 4., 5., 6., 7., 8., 9., 10., 11./ 

DATA HM3/.57, .6, .62, .65, .67, .8/ 

DATA CD3/. 01425, .015, .018, .026, .035, .11/ 

DATA HM4/.56, .58, .6, .64, .72, .8/ 

DATA CD4/. 01425, .0155, .01925, .0305, .075, .125/ 

DATA HM5/.52, .55, .58, .6, .65, .8/ 

DATA CD5/. 01425, .015, .02, .025, .045, .1405/ 

DATA HM6/.5, .55, .575, .6, .65, .7, .8/ 

DATA CD6/.015, .02, .025, .0335, .057, .0895, .1625/ 

DATA HM7/.47-, .5, .55, ..6, .65, .8/ 

DATA CD7/.016, .018, .0255, .0425, .0705, .18/ 

DATA HM8/.45, .48, .5, .55, .6, .65, .8/ 

DATA CD8/.0175, .01975, .021, .0345, .0515, .084, .195/ 

DATA HM9/.45, .48, .52, .57, .62, .7, .8/ 

DATA CD9/. 0195, .022, .03045, .05, .075, .1305, .214/ 

DATA HM10/.44, .48, .5, .55, .65, .8/ 

DATA CD10/.02, .025, .03, .0505, .11, .231/ 

DATA HM11/.43, .45, .48, .55, .61, .71, .8/ 

DATA CD11/.022, .0235, .03, .06, .1, .175, .26/ 

CD21F=CDTHKF(T, ALPHAO, HM, AO, 9, 

1 HM3 , HM4 , HM5 , HM6 , HM7 , HM8 , HM9 , HM10 , HM11 , 

2 CD3 , CD4 , CD5 , CD6 , CD7 , CD 8 , CD9 , CD10 , CD11 , 

3 6, 6, 6, 7, 6, 7, 7, 6, 7) 

RETURN 

END 

C 

FUNCTION CD23F(T, ALPHAO, HM) 

DIMENSION AO ( 9 ) , HM3 ( 9 ) , CD3 ( 9 ) ,HM4(8) , CD4 ( 8 ) , HM5 ( 9 ) , CDS (9) , 

1 HM6 (9) ,CD6(9) , HM7 ( 9 ) , CD7 ( 9 ) , HM8 ( 9 ) , CD 8 ( 9 ) , HM9 (9) ,CD9(9) , 

2 HM10 ( 9 ) , CD10 ( 9 ) , HM11 ( 9 ) ,CD11(9) 

C DATA IS FROM HAINES AND MONAGHAN, P. 1189, FIG. 12 
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c 


c 


c 


DATA AO/3., 4., 5., 6., 7., 8., 9., 10., 11./ 

DATA HM3/.55, .58, .6, .63, .65, .68, .7, .75, .8/ 

DATA CD3/. 013, .015, .017, .025, .03075, .045, .056, .09,. 129/ 
DATA HM4/.53, .56, .58, .6, .63, .67, .71, .8/ 

DATA CD4/.013, .015, .0175, .02075, .03, .05, .075, .145/ 

DATA HM5/.48, .52, .55, .58, .6, .64, .69, .75, .8/ 

DATA CD5/.013, .015, .0165, .2, .02545, .039, .075, .12, .161/ 

DATA HM6/.49, .52, .55, .59, .6, .63, .67, .735, .8/ 

DATA CD6/.015, .017, .0204, .03, .034, .0495, .075, .125, .181/ 

DATA HM7/.4, .45, .5, .54, .58, .6, .66, .71, .8/ 

DATA CD7/.0155, .016, .02, .025, .035, .043, .08, .12, .205/ 

DATA HM8/.4, .45, .5, .53, .55, .58, .6, .71, .8/ 

DATA CD8/.016, .0175, .02425, .03, .035, .045, .0535, .135, .222/ 
DATA HM9/.4, .45, .485, .55, .57, .6, .65, .71, .75/ 

DATA CD9/.0175, .02, .025, .043, .0505, .06625, .10075, .152, 

1 .192/ 

DATA HM10/.4, .42, .45, .5, .54, .585, .63, .69, .73/ 

DATA CD10/.0195, .02, .02325, .035, .05, .075, .105, .155, .19/ 
DATA HM11/.4, .43, .47, .5, .55, .58, .64, .72, .8/ 

DATA CD11/.0204, .025, .03, .0445, .07, .09, .135, .205, .281/ 

CD23F = CDTHKF ( T , ALPHAO , HM , AO , 9 , 

1 HM3 , HM4 , HM5 , HM6 , HM7 , HM8 , HM9 , HM10 , HM11 , 

2 CD3 , CD4 , CD5 , CD6 , CD7 , CD8 , CD9 , CD10 , CD1 1 , 

3 9, 8, 9, 9, 9, 9, 9, 9, 9) 

RETURN 

END 

FUNCTION CD25F(T, ALPHAO, HM) 

DIMENSION AO (9) , HM3 ( 8 ) , CD3 ( 8 ) , HM4 ( 9 ) , CD 4 (9) , HM5 ( 8 ) , CD 5 ( 8 ) , 

1 HM6 ( 8 ) , CD6 ( 8 ) , HM7 ( 9 ) , CD7 ( 9 ) , HM8 ( 9) , CD8 ( 9 ) , HM9 ( 9 ) , CD9 ( 9 ) , 

2 HM10 ( 8 ) , CD10 ( 8 ) ,HMll(7) ,CD11(7) 

DATA IS FROM HAINES AND MONAGHAN, P. 1190, FIG. 13 
DATA AO/3., 4., 5., 6., 7., 8., 9., 10., 11./ 

DATA HM3/.55, .58, .6, .624, .65, .68, .75, .8/ 

DATA CD3/.015, .0165, .02, .025, .0325, .05, .1, .1454/ 

DATA HM4/.52, .55, .58, .6, .64, .65, .68, .76, .8/ 

DATA CD4/.015, .0155, .02, .02425, .0355, .04, .06, .125, .166/ 

DATA HM5/.5, .56, .59, .62, .65, .71, .75, .8/ 

DATA CD5/.015, .02, .025, .035, .05, .095, .135, .19/ 

DATA HM6/.46, .51, .55, .6, .63, .67, .725, .8/ 

DATA CD6/.015, .0175, .0235, .035, .05, .0775, .125, .2125/ 

DATA HM7/.4, .45, .5, .55, .59, .63, .68, .76, .8/ 

DATA CD7/.0155, .017, .0205, .03, .04, .06, .1, .18, .233/ 

DATA HM8/.4, .45, .5, .55, .59, .61, .65, .74, .8/ 

DATA CD8/.0175, .02, .025, .035, .05, .06, .0825, .18, .25/ 

DATA HM9/.4, .43, .47, .5, .55, .58, .61, .67, .8/ 

DATA CD9/.0195, .02, .025, .03, .045, .0555, .075, .126, .2675/ 
DATA HM10/.4, .44, .49, .53, .58, .65, .73, .8/ 

DATA CD10/.02, .025, .035, .04975, .076, .132, .207, .285/ 

DATA HM11/ . 4 , . 46 , .5, .55, .62, .71, .8/ 

DATA CD11/.021, .035, .05, .078, .13, .215, .305/ 

CD25F=CDTHKF(T, ALPHAO, HM, AO, 9, 

1 HM3 , HM4 , HM5 , HM6 , HM7 , HM8 , HM9 , HM10 , HM1 1 , 

2 CD3 , CD 4 , CDS , CD6 , CD7 , CD8 , CD9 , CD10 , CD11 , 

3 8, 9, 8, 8, 9, 9, 9, 8, 7) 

RETURN 

END 

FUNCTION CD30F (T, ALPHAO, HM) 

DIMENSION AO ( 9 ) , HM3 ( 9 ) , CD3 ( 9 ) , HM4 ( 8 ) , CD4 ( 8 ) , HM5 ( 8) , CD 5 ( 8 ) , 

1 HM6 ( 9 ) , CD6 ( 9 ) , HM7 ( 8 ) , CD7 ( 8 ) , HM8 ( 10 ) , CD8 ( 10 ) , HM9 ( 8 ) , CD 9 ( 8 ) , 

2 HM10 ( 8 ) , CD10 ( 8 ) , HM11 ( 7 ) ,CD11(7) 

DATA IS FROM HAINES AND MONAGHAN, P.1190, FIG. 14 
DATA AO/3., 4., 5., 6., 7., 8,, 9., 10., 11./ 

DATA HM3/.4, .55, .585, .63, .65, .69, .735, .76, .78/ 

DATA CD3/.015, .018, .02, .03, .037, .06, .1, .13, .16/ 

DATA HM4/.4, .53, .59, .64, .68, .72, .757, .8/ 

DATA CD4/.015, .018, .024, .04, .065, .102, .15, .22/ 

DATA HM5/.4, .51, .57, .62, .65, .7, .74, .8/ 

DATA CDS/. 015, .018, .025, .04, .055, .1, .15, .25/ 

DATA HM6/.4, .5, .55, .6, .64, .66, .7, .78, .8/ 

DATA CD6/.016, .02, .025, .0395, .06, .077, .12, .24, .275/ 

DATA HM7/.46, .53, .58, .62, .65, .7, .74, .8/ 

DATA CD7/.02, .03, .04, .059, .081, .14, .199, .3/ 
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c 


DATA HM8/.4, .45, .5, .55, .6, .68, .665, .7, .75, .8/ 

DATA CD8/.02, .021, .03, .041, .061, .082, .12, .165, .24, .33/ 

DATA HM9/.4, .45, .5, .55, .6, .65, .72, .8/ 

DATA CD9/.02, .025, .033, .05, .08, .133, .22, .35/ 

DATA HM10/.4, .46, .5, .54, .59, .65, .73, .8/ 


DATA CD10/.02, .03, .04 

, .06, .1, 

.16, 

.2608, 

.365/ 

DATA HM11/.4, .45, .5, 

.56, .61, 

.72, 

.8/ 


DATA CD11/.021, .035, 

.06, .105, 

.15, 

.277 , 

.381/ 

CD3QF=CDTHKF (T , ALPHAO , 

HM, AO , 9 , 





1 HM3 , HM4 , HM5 , HM6 , HM7 , HM8 , HM9 , HM10 , HM11 , 

2 CD3 , CD 4 , CD5 , CD6 , CD 7 , CD 8 , CD 9 , CD 10 , CD 11 , 

3 9,8,8,9,8,10,8,8,7) 

RETURN 

END 


FUNCTION CD35F (T , ALPHAO , HM) 

DIMENSION AO (9) , HM3 ( 9 ) ,CD3(9) ,HM4(7) ,CD4(7) ,HM5(8) ,CD5(8) 

1 HM6 ( 8 ) , CD6 ( 8 ) , HM7 ( 8 ) , CD7 ( 8 ) , HM8 ( 8 ) , CD8 ( 8 ) , HM9 ( 8 ) , CD9 ( 8 ) , 

2 HM10 ( 7 ) , CD10 ( 7 ) , HM11 (8) ,CD11(8) 

DATA IS FROM HAINES AND MONAGHAN, P. 1191, FIG. 15 


DATA 

AO/3.,4., 

5., 

6., 7 

., 8. 

, 9., 

10., 

11./ 

DATA 

HM3/.57 , 

.6, . 

.62, . 

65, . 

68, . 

71, . 

75, . 

DATA 

CD3/.02, 

.025, 

, .0308, .042, . 

06, . 

09, . 

DATA 

HM4/.55, 

.6, , 

.65, . 

68, . 

705, 

.76, 

.8/ 

DATA 

CD4/.02, 

.029, 

, .05, 

.075 

, .1, 

.19, 

.28/ 

DATA 

HM5/.53, 

.58, 

.63, 

.67, 

.7, . 

73, . 

78, . 

DATA 

CDS/. 02, 

.028, 

, .05, 

.08, 

.Ill 

, .16 

, .26 

DATA 

HM6/.52, 

.565, 

- .6, 

.63, 

.67, 

.71, 

.75, 

DATA 

CD6/.02, 

.03, 

.043, 

.06, 

.1, 

.15, 

.22, 

DATA 

HM7 / . 4 8 , 

.54, 

.59, 

.62, 

.65, 

.7, . 

74, . 

DATA 

CD7/.02, 

.03, 

.05, 

.07, 

.095, 

.156 

, .23 

DATA 

HM8/.46, 

.54, 

.59, 

.62, 

.65, 

.7, . 

75, . 


78, 

15, 


8 / 


8 / 

205, 


25/ 


DATA CD8/.02, 
DATA HM9/.43, 
DATA CD9/.02, 


036, .06, .085, 
46, .52, .564, 

.025, .04, .06, 


.112, .188, 
6, .65, .75 
.088, .144, 


.312/ 
. 8 / 

.342/ 

8 / 

, .375/ 

8 / 

.29, .405/ 
. 8 / 

.325, .43/ 


DATA 

HM10/.4, . 

45, .5, .55, .6 

, .7, 

.8/ 



DATA 

CD10/.02, 

.03, .05, .079, 

.12, 

.27 , 

.45/ 


DATA 

HM11/.4, . 

44, .48, .538, 

.587, 

.68, 

.77, 

.8/ 

DATA 

CD11/.021, 

.04, .059, .1, 

.15, 

.28, 

.42, 

.47/ 


CD35F=CDTHKF(T, ALPHAO, HM, AO, 9, 

1 HM3 , HM4 , HM5 , HM6 , HM7 , HM8 , HM9 , HM10 , HM11 , 

2 CD 3 , CD4 , CD5 , CD6 , CD7 , CD8 , CD9 , CD 10 , CD 11 , 

3 9, 7, 8, 8, 8, 8, 8, 7, 8) 

RETURN 

END 


FUNCTION CDTHKF ( T , ALPHAO , HM , AO , NA , 

1 HM1 , HM2 , HM3 , HM4 , HM5 , HM6 , HM7 , HM8 , HM9 , 

2 CD1 , CD 2 , CD3 , CD 4 , CD5 , CD6 , CD7 , CD8 , CD9 , 

3 N1,N2,N3,N4,N5,N6,N7,N8,N9) 

DIMENSION AO ( 1 ) , HM1 ( 1) , HM2 ( 1) , HM3 ( 1 ) , HM4 ( 1 ) , HM5 ( 1 ) , HM6 ( 1 ) , 

1 HM7 ( 1 ) , HM8 ( 1 ) , HM9 ( 1 ) , CD1 ( 1 ) , CD2 ( 1 ) , CD3 ( 1 ) , CD4 ( 1 ) , CDS ( 1 ) , 

2 CD6 ( 1 ) , CD7 ( 1 ) , CD8 ( 1 ) , CD9 ( 1 ) 

DIMENSION X( 2 ) , Y(2) 

ALP=ALPHAO 

IF(ALP.LE.AO(l)) ALP=AO ( 1 ) 

N=2 

CALL OUT ( NA , N , I S , I L , AO , AL P ) 

DO 30 I-XS, IL 
X(I-IS+1) -AO( I) 

GO TO (1,2, 3, 4, 5, 6, 7, 8, 9), I 

1 ANS=GETF (N1 , N , HM1 , GDI , T , ALPHAO , HM) 

GO TO 20 

2 ANS=GETF (N2,N, HM2 , CD2 , T , ALPHAO , HM) 

GO TO 20 

3 ANS=GETF ( N3 , N , HM3 , CD3 , T , ALPHAO , HM) 

GO TO 20 

4 ANS=GETF ( N4 , N , HM4 , CD4 , T , ALPHAO , HM) 

GO TO 20 

5 ANS=GETF (N5 , N , HM5 , CD5 , T , ALPHAO , HM) 

GO TO 20 
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6 ANS=GETF ( N6 , N , HM6 , CD6 , T , AL PHAO , HM ) 
GO TO 20 

7 ANS=GETF ( N7 , N , HM7 , CD7 , T , ALPHAO , HM) 
GO TO 20 

8 ANS=GETF (N8 , N , HM8 , CD8 , T , ALPHAO , HM) 
GO TO 20 

9 ANS=GETF ( N 9 f N r HM9 , CD 9 , T , ALPHAO , HM ) 
20 Y(I-IS+1)= ANS 

30 CONTINUE 

CDTHKF=YLAGN(X, Y, N,ALP) 

RETURN 

END 


FUNCT I ON GETF ( NMAX r N , XHM , YCD , T , ALPHAO , HM ) 
DIMENSION XHM ( 1 ) , YCD(l) ,U(3) , V(3) 

I F ( HM . GT . XHM ( 1 ) ) GO TO 1 
GETF=YCD ( 1 ) 

RETURN 

1 CALL OUT (NMAX r N , JS , JL , XHM , HM) 

DO 2 J=JS,JL 

U( J-JS+1)=XHM(J) 

V( J-JS+1)=YCD(J) 

2 CONTINUE 

GETF=YLAGN(U,V,N,HM) 

RETURN 

END 

SUBROUTINE OUT (NMAX ,N r IS,IL,Y r X) 

DIMENSION Y ( 1 ) 

IS*1 

IL=IS+N-1 

IF (X . LE . Y ( IL) ) RETURN 
IL=NMAX 
I S= I L-N+l 

IF (X.GE . Y ( IS) ) RETURN 
IS=1 

1 IL=IS+N-1 

IF( (X-Y(IS) )*(X-Y(IL) ) .LE. 0.) RETURN 

IS=IL 

GO TO 1 

END 


FUNCTION YLAGN(X r Y , N , Z) 

PERFORMS THE LAGRANGE INTERPOLATION 

DIMENSION X(l) , Y(l) 

SUM=0 « 

DO 1 1 = 1 f N 
S=l. 

DO 2 J=1 , N 

IF(J.EQ.I) GO TO 2 

S=S*(Z-X(J))/(X(I)-X(J)) 

2 CONTINUE 

SUM= SUM+ S * Y ( I ) 

1 CONTINUE 
YLAGN=SUM 
RETURN 


END OF INFORMATION 






END 


C 


SUBROUTINE ATMCON ( ALTUDE , TEMP , PRES , DEN , VIS , WA) 



non o n n o o o n n n n o o n n n n n n o n n n n o n n n n n no 


ALTUDE=ALTIIDE* .3048 
SL0PE=- . 0065 

TEMP=288 . 16+SL0PE*ALTUDE 
EXP=2. 718281828 
TSEA=288 .16 
PSEA=101325 . 

PRES1 = 227 00 . 

GRAV=9 . 82 
R=288 . 

POWER=GRAV/ (SL0PE*R) 

PRES=PSEA* ( 1/ ( TEMP/TSEA) ) ** POWER 
IF (ALTUDE.LE. 11000 . ) GO TO 1 

PRES-PRES1*EXP** ( -GRAV/ (R*216.66) * ( ALTUDE-11000 . ) ) 
TEMP=216 .66 

1 WA=SQRT(1.4*R*TEMP)/.3Q48 
TEMP=(TEMP-273 . 15) *9/5+491 . 67 

VI S= . 35* (TEMP/ 492. )**1.5*(690/ (TEMP+198 .))*. 000001 
PRES=PRES*2116 . 2/PSEA 
DEN=PRES/ (1718 . *TEMP ) 

ALTUDE=ALTUDE/ .3048 

RETURN 

END 


SUBROUTINE CLTMAX ( T , NCLD , ALPHLO , DNCLD ) 
*************************************************************** 


DESIGN LIFT COEFFICIENT WITH RESPECT TO MAXIMUM 
THICKNESS AND VISE VERSA FOR CLARK-Y SECTIONS 


REFERENCE: NACA TR 628 


USAGE : 

CALL CLTMAX ( T , ALPHA , HM , HML , HMD , ALPHLO , NCLD r T ) 

DESCRIPTION OF PARAMETERS: 

ALPHLO * ANGLE OF ATTACK AT ZERO LIFT (DEGREES) 

TMAX « MAXIMUM THICKNESS - CHORD RATIO 

AO I * SECTION LIFT - CURVE SLOPE (DEGREES) 


DATA IS FROM NACA TR 628 

DATA ALPHLO/- 2 .9, -3. 6,-4. 5,-6. 2, -7 .6,-9. 3/ 

DATA TMAX/ 0 .06,0.08,0.10/0.14,0.18,0. 22/ 

DATA CLD/0. 2993 ,0.3642, 0.4461 ,0.5902, 0.694 4, 0.8950/ 

DALO ( L ) = ALPHLO (L),L=1,6 

AOX=DCL/DALO=0.1096*(1-(T/C)MAX(L) ) / ( 1- ( T/C )MAX( L ) )**2)**.5 
THUS , CLD= ( DC L/DALO ) *ABS ( DALO ) =AO I *ABS ( DALO ) 

PLOTTING CLD VERSUS (T/OMAX SHOWS LINEAR RELATIONSHIP 
DIMENSION ALPHAO (21) 

REAL NCLD 

IF (NCLD . NE . 0 . ) GO TO 100 

EQUATION OF LINE CLD VERSUS (T/C)MAX: CLD=0 . 0328125 (T/C )MAX+0 . 234 

TCMIN=0 . 06 
TCMAX=0 . 22 

IF(T.LT.TCMIN) WRITE(6,20) T , TCMIN 
20 FORMAT ( ' *,19X,’T/C = ! ,F10.6,' IS LESS THAN (T/C)MIN = ',F10.6, 
& 1 OF SUBROUTINE CLTMAX'/) 

IF(T.GT.TCMAX) WRITE (6, 30) T , TCMAX 
30 FORMAT ( ' ’;i9X,'T/C = ' ,F10.6,' IS GREATER THAN (T/OMAX = * , 

&F10.6,' OF SUBROUTINE CLTMAX'/) 

NCLD= (-0. 1687 9+SQRT(0. 02849+0. 496405*T) )/0. 2482025 
AOI=AOIOF (T) 

C AO I OF (T) CALCULATES SLOPE OF LOW-SPEED LIFT CURVE . 

ALPHLO=NCLD/ ( -AOI ) 

DNCLD=0 . 

GO TO 889 
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100 CONTINUE 

CLDMIN=0 .30 
CLDMAX=0 . 90 

IF (NCLD . LT . CLDMIN ) WRITE (6', 90) NCLD , CLDMIN 
90 FORMAT ( * ’,29X,’CLD = ' ,F10.6,' IS LESS THAN CLDMIN = ’ ,F10.6/) 

IF (NCLD .GT .CLDMAX) WRITE(6,105) NCLD , CLDMAX 
105 FORMAT (’ ',29X,'CLD = ' ,F10.6,' IS GREATER THAN CLDMAX = ' ,F10.6/) 

IF (NCLD. GE. 0.0) T=0. 1241*NCLD**2+0 . 16879*NCLD 
IF (NCLD. LE .0.0) T=0 . 1241*NCLD**2+0 . 16879*NCLD 
AOI=AOIOF(T) 

ALPHLO=NCLD/ ( -AOI ) 

DNCLD=1 . 

GO TO 889 
889 RETURN 
END 


FUNCTION AOIOF(T) 

AOIOF = VALUE OF A0, SLOPE OF THE LOW SPEED LIFT CURVE 
T = MAXIMUM THICKNESS-CHORD RATIO 

DIMENSION A(6) ,H(6) ,X(3) , Y(3) 

DATA IS CALCULATED FROM THE GIVEN INFORMATION FROM NACA TR 628 

DATA A = SLOPE OF LOW-SPEED LIFT CURVE 

DATA A/0.1032,0.1012,0.0991,0.0952,0.0914,0.0876/ 

DATA H = MAXIMUM THICKNESS-CHORD RATIO 
DATA H/0. 06, 0.08, 0.10, 0.14, 0.18, 0.22/ 

N=2 

AOIOF=0 . 1096 

IF (T . LT .0.06) RETURN 

IS=1 

IL--IS+N-1 

1 IF ( IL . GE . 6 ) GO TO 2 
IF((T-H(IS))*(T-H(IL)) . LE . 0 . ) GO TO 3 
IS-IL 

IL-IS+N-1 
GO TO 1 

2 IS=6-N+1 
IL=6 

3 DO 4 I=IS, IL 

X ( I-IS+1 ) =H ( I ) 

Y ( I-IS+1) =A( I ) 

4 CONTINUE 

AOIOF=YLAGN(X,Y,N,T) 

RETURN 

END 


FUNCTION CMFF (T, CL,M, HM) 


MOMENT COEFFICIENTS 

ABOUT THE QUARTER CHORD AND ABOUT THE LEADING EDGE 
FOR CLARK - Y SECTIONS 


TCMIN=0 .05 
TCMAX~0 .25 

IF (T . LT . TCMIN ) WRITE(6,10) T , TCMIN 
10 FORMAT ( * ' ,19X, 'T/C = \F10.6,' IS LESS THAN (T/C)MIN = 

&F10.6,' OF FUNCTION CMFF’/) 

IF(T.GT.TCMAX) WRITE (6, 20) T , TCMAX 
20 FORMAT ( ' ’,19X,'T/C = ',F10.6,' IS GREATER THAN (T/C)MAX * 

&F10.6,' OF FUNCTION CMFF’/) 

IF(M.EQ.l) GO TO 1 
IF (M . EQ . 2 ) GO TO 2 
IF(M.EQ.O) GO TO 3 
C DATA IS FROM NCSTATE PROGRAM 

C DATA ALPHA = ANGLE OF ATTACK RELATIVE TO THE FREESTREAM 
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c 

DATA 

"CMLE . NO . ” : 

: "CMLE” 

= MOMENT COEFFICIENT 

ABOUT 

THE 

c 




LEADING EDGE 



c 



" . NO . ” 

= THICKNESS-TO-CHORD 

RATIO 


c 

DATA 

"CMQC. NO." : 

: "CMQC" 

= MOMENT COEFFICIENT 

ABOUT 

THE 

c 




QUARTER CHORD 



c 



" . NO . ” 

= THICKNESS-TO-CHORD 

RATIO 



C PLOTTING CM VERSUS CL AT VARYING THICKNESS-TO-CHORD RATIO, 

C SHOWS QUADRATIC RELATIONSHIP. 

C DATA ALPHA /-4 , -2 , 0 , 2 , 4 , 6 , 8/ 

C DATA CMLE5 /. 0158 ,-. 0506 ,~. 0814 ,-. 1232 1776 2247 27 24/ 

C DATA CMQC5 /- . 0306 0387 0306 027 2 , - . 0306 0308 ,-. 0327/ 

C DATA CMLE10 /-. 0692 , - . 1124 1588 2131 2693 3184 3635/ 

C DATA CMQC10 /-. 0627 0545 057 9 0610 ,-. 0659 , - . 067 9 ,-. 0688/ 

C DATA CMLE15 /- . 1580 ,-. 2064 2513 3060 ,-. 3600 ,-. 4136 47 40/ 

C DATA CMQC 15 /-. 0959 0945 , -. 0940 0988 ,-. 1028 ,-. 107 1 1158/ 

C DATA CMLE20 /- . 2463 2961 3359 3985 ,-. 464 2 5266 587 2/ 

C DATA CMQC20 /- . 127 9 , - . 1282 , - . 127 2 , - . 1366 , - . 146 8 , - . 1553 , - . 1653/ 

C DATA CMLE25 /- . 3239 3869 4 429 5037 569 8 6389 6996/ 

C DATA CMQC25 /-. 1550 ,-. 1643 ,-. 17 00 ,-. 17 99 ,-. 1902 2055 2159/ 

1 CONTINUE 

CMLE=T**2* ( -. 306 5 *CL+. 875) -T*(. 1514 *CL+. 705)-. 23993 *CL+6. 25/100000 
CMLEMX=-.02654*CL**2- . 35847 *CL- . 097 92 
IF (CMLE . LT . CMLEMX) WRITE(6,105) CMLE , CMLEMX 
105 FORMAT (’ *,19X,'CMLE = ' ,F10.6,' IS GREATER THAN CMLEMAX * 

&F10.6,' OF FUNCTION CMFF ' /) 

CMFF=CMLE/ SQRT( 1-HM**2 ) 

GO TO 3 

2 CONTINUE 

CMQC=(-.44*CL+1.15)*T**2~( . 0993*CL+ . 7 85 ) *T+ . 0036*CL+ . 00638 
CMQCMX=- .02545 ’’'01**2-. 11281 *CL+. 09972 
I F ( CMQC . LT . CMQCMX ) WRITE(6,110) CMQC,CMQCMX 
110 FORMAT (’ ' , 19X , 1 CMQC = ',F10.6,' IS GREATER THAN CMQCMAX = 

&F10.6,' OF FUNCTION CMFF'/) 

CMFF=CMQC/ SQRT ( 1~HM**2 ) 

3 RETURN 

END 


SUBROUTINE CYCOOR ( L , CHORD, T) 

*************************************************************** 

* THIS ROUTINE WILL GIVE DIMENSIONS AND SECTION PROP * 

* -ERTIES FOR A FLAT FACED CLARK-Y AIRFIOL SECTION FOR ANY * 

* GIVEN THICKNESS AND REFERENCE CHORD „ IT ALSO CALCULATES * 

* THE MOMENT OF INERTIA FOR THE MAJOR AND MINOR AXES . * 

* THE INPUT UNITS WILL CORRESPOND WITH THE OUTPUT UNITS, * 

* HOWEVER THE COORDINATES ARE NON-DIMENSIONAL WITH * 

* THE RESPECT TO THE REFERENCE CHORD. THE UPPER AND LOWER * 

* X-COORDINATES ARE THE SAME. * 


DIMENSION X ( 14 ) , YU ( 14 ) , YL ( 14 ) , YU1 ( 13 ) , YL1 ( 13 ) 

DATA YU1/.294, .55, . 665 , . 808 , . 959 , 1 . 0 , . 985 , . 93 , . 83 , . 685 , . 523 , . 338 , . 
&113/ 

REAL IMAJOR, IMINOR 
IF(L.EQ.O) GO TO 5 
550 FORMAT ('1', //////////////) 

500 FORMAT ( ' 8 , 45X, '***', IX, ’ CLARK-Y AIRFOIL COORDINATES ’, IX, '*'**' , 

&//’ ’ ,39X, 'X-COORDINATES' ,5X, 'Y-COOR UPPER' ,6X, 'Y-COOR LOWER'/) 

600 FORMAT ( ' ' , 39X , F10 . 6 , 8X, F10 . 6 , 8X , F10 . 6 ) 

601 FORMAT ( 'O' ,// ,43X, '***' ,1X, ' CLARK-Y AIRFOIL DIMENSIONS IN FT.', 

&1X, '***',//, ' ' ,39X, 'X-COORDINATES ' ,5X, 'Y-COORD UPPER', 6X, 

& ' Y-COORD LOWER',/) 

700 FORMAT ( ' ' , 5 ( /) ,43X, ' (T/C)MAX’ ,7X, 'CHORD (FT) ’ ,8X, ’AREA (FT* *2) ' , 
&/41X,F10„6, 6X, F10.6,7X,F10.6) 

800 FORMAT ( ' ' ,5(/) ,53X, 'MAJOR' ,12X, 'MINOR' ,/53X, 'MOMENT' ,11X, 'MOMENT' , 

&/52X, ’INERTIA' ,10X, 'INERTIA' , /4 9X, F10 . 5 , 7X, F10 . 5 , /53X, ' IN**4 ' , 
&12X, ' IN**' 4 ’ ) 

THICKET 

IMAJOR= . 0418*CH0RD ,te *4*THICK 
IMINOR=.0454*CHORD**4*THICK**3 
YL1 ( 1) =YU1 (1) 

YL1 ( 2) = . 131 
YL 1(3)=. 0824 
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YL1(4)=.038 
YL1 ( 5 ) = . 0067 
DO 1 1=6,13 

1 YL1(I)=0.0 
X(1)=0.0 
X( 2) = . 0025 
X ( 3 ) = . 025 
X(4)=2*X(3) 

DO 2 1=1,10 

2 X( 1+4 ) = FLOAT ( I ) /10 . 

RADLE=.015*CHORD 
RADTE= . 086*THICK 
AREA= .7245 *CHORD*THICK 
YU ( 1 ) =YU1 ( 1 ) “THICK 

YL ( 1 ) =YL1 ( 1 ) "THICK 
DX=RADLE-X ( 2 ) 

DY=SQRT(RADLE**2-DX**2) 

YU ( 2 ) =YU ( 1 ) +DY 
YL(2)=YL(1)-DY 
DO 3 1=3,14 
YU(I)=YU1(I-1) "THICK 

3 YL(I)=YL1(I-1) "THICK 
NUMPTS=14 
WRITE(6, 550) 

WRITE ( 6 , 500 ) 

WRITE (6, 600) ( X ( I ) , YU (I) ,YL(I) ,I=1,NUMPTS) 
WRITE (6 , 601 ) 

DO 4 1=1 , NUMPTS 
X ( I ) =X ( I ) "CHORD 
YU ( I ) =YU ( I ) "CHORD 
Y L ( I ) = Y L ( I ) "CHORD 

4 WRITE (6,600)X(I) , YU (I) ,YL(I) 

WRITE (6,700) THICK , CHORD , AREA 
WRITE (6,800) IMAJOR, IMINOR 

5 RETURN 
END 

' C 

c 

/ / $DATA 
C 

. C 
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Appendix II 
ClarkY Program Cases 
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Case 1 

Input /Output 
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//CLARKY JOB ( R230 , 006B , S02 „ 003 , A7 ) , ' CLARKY ' 

//*MAIN USER=R230$A7 , ORG=XEROX 

/ / *P ASSWORD * * ^’S'***#************#*****************#*********************# 

//* FORMAT PR . DDNAME = , JDE= JFMT 1 , FORMS= 1111 
//*XBM WATFIV 
C 

c* * 

C* THIS PROGRAM WILL CALCULATE THE LIFT COEFFICIENT, DRAG, * 

C* AND MOMENT COEFFICIENT ABOUT THE QUARTER CHORD OR THE * 

C* LEADING EDGE, COORDINATES FOR A CLAYK Y AIRFOIL SECTION * 

C* * 

c 

1 

2 

3 

4 

5 

c 

C 
C 

6 

7 

8 
9 

10 

C 

oi 1 1 

c 

C SPECIFY HERE THE KNOWN VALUE OF CLD OR TMAX 
C SET THE UNKNOWN VARIABLE (CLD OR (T/C)MAX) EQUAL TO ZERO 
C FOR EXAMPLE, NCLD=UNKNOWN VALUE OF CLD , I =KNOWN VALUE OF (T/C)MAX 
C NOTE: THIS CLD IS INCOMPRESSIBLE AND ONLY TO START THE CODE. 

12 DATA NCLD/O . 00/ 

C 

C IN ORDER TO BE CONSISTANT T IS NON-DIMENSIONAL 
C 

13 DATA T/0 . 1 170/ 

C 

14 CALL CL TMAX ( T , NCLD , ALPHLO , DNCLD ) 

C 

C SPECIFY HERE THE DESIRE FOR CLARK - Y AIRFOIL SECTION COORDINATES 
C AND ITS MOMENTS OF INERTIA BY INDICATING "1" FOR “YES", AND "0“ 

C FOR "NO" FOR PARAMETER " L " 

C FOR EXAMPLE, L=1 

15 DATA L/1/ 

16 CALL CYCOOR(L, CHORD, T) 

C 

17 WRITE ( 6 , 10) 

18 10 FORMAT ( ' 1 ' ,/////////, 56X , '***', IX, 'LIMITATIONS' , IX, '***'//) 

C 

C SPECIFY HERE THE DESIRE FOR MOMENT COEFFICIENTS - EITHER CM 
C ABOUT THE NOSE OR THE QUARTER CHORD - BY INDICATING ”1" FOR 
C "CM ABOUT THE NOSE" AND "2" FOR "CM ABOUT THE QUARTER CHORD" 

C FOR THE PARAMETER "M" . IF CM IS NOT DESIRED, INDICATE "O" FOR 

C PARAMETER "M" . 

C FOR EXAMPLE, M= 1 . 

19 DATA M/2/ 


DIMENSION CL (25, 25) ,CD(25,25) , CLD (25, 25) , ALPHA ( 7 ) , ALPHAO ( 2 1 ) , 
&RN( 25 ) , CM( 25 , 25 ) 

REAL HM(4) , NCLD 

DATA HM/0.0,0. 1 .0. 2,0.4/ 

DATA ALPHA/- 1 .0,0. 0,1. 0,2. 0,3. 0,4. 0,5.0/ 

DATA ALTUDE/ 10000./ 

NOTE: CHORD MUST BE IN FEET 

DATA CHORD/0.75/ 

DATA NUMACH/4/ 

DATA NUMALP/7/ 

DATA NCL/1/ 

DATA NCD/1/ 

CALL ATMCON( ALTUDE, TEMP, PRES, DEN, VIS.WA) 



000000 • 0 
000000 • o 
000000 • 0 
OOOOOO ■ o 
000000 • 0 
OOOOOO • o 
OOOOOO • 0 
OOOOOO • 0 
889000 O 

t-eeeooo 

1E22000 

sen i-o'o 

96^020 * O 
862920*0 

d3M01 OdOOO-A 

* * * * 13 NI 


OOOOOO * 0 
OOOOOO * 0 
OOOOOO • 0 
OOOOOO * 0 
OOOOOO ■ 0 
OOOOOO * 0 
OOOOOO • 0 
OOOOOO * 0 
1782.000 • O 
3PPP000 
!■ ^9600 * O 
226910*0 
226220*0 
86£t7E00 

H3MQ1 dOOO-A 


9 1 6600*0 
699620*0 
E689t70*0 
601090*0 
2E8220 * 0 
209 1 80 ' O 
t7Et7980*0 
092280*0 
2911780*0 
206020*0 
1796890*0 
2928KT0 

20nE0*0 

862920*0 

a 3 ddn aaooo-A 
SN0ISN3WI0 HOddlV 


1 22E 1 0 ' O 
9179660*0 
161190*0 

snosoo 
on 260 *0 
018801 *0 
sfr2sn *o 
0002 n * o 

E022U *0 
OESt-GOO 
908220*0 
096*90*0 
69n*o*o 
8661700*0 

dBddn aooo-A 


000092*0 
000929*0 
000009 * 0 
000929*0 
OOOOSt? *0 
000926*0 

oooooe * o 

000922*0 
00009 1 * 0 
000920*0 
0092E0 ' 0 
092810*0 
928100*0 
OOOOOO * 0 

Sdiwjiaaooo-x 

A-XdVlO *** 


OOOOOO • 1 
000006 ' O 
000008 * O 
000002 * O 
000009 * O 
000009 * 0 
0000017 * o 

oooooe * o 
000002 * 0 
OOOOOI *0 
000090 * 0 
000920*0 
009200*0 
OOOOOO * 0 

S3IVNiad000-X 


CO 


*** SiivNioaooD iioidiv A-xavio *** 



(T/OMAX 
0.11 7000 


CHORD(FT) AREA(FT**2.) 

0.750000 0.063575 


MAJOR 

MOMENT 

INERTIA 

0.00155 

IN**4 


MINOR 
MOMENT 
INERTIA 
0 . 00002 
IN* *4 



* CLARK Y SERIES AIRFOIL DATA BANK * 


* CLARK Y 


SERIES AIRFOIL DATA BANK * 


ALTITUDE 

= 

9999.9960 FEET 

ALTITUDE = 

9999.9960 FEET 

CHORD 

= 

0.750000 FEET 

CHORD = 

0.750000 FEET 

(T/C)MAX 

= 

0.117000 (S) 

( T/C )MAX = 

0.11 7000 ( S ) 

CLD 

= 

0.505381 

CLD = 

0.505381 

ALPHALO 

= 

-5. 186451 DEG. 

ALPHALO = 

-5 . 186451 DEG. 

MACH NO. 

= 

0 . 000000 

MACH NO. = 

0. 100000 

REYNOLDS NO. 

= 

0 . 000000 E 00 

REYNOLDS NO. = 

0.411794E 06 


o 


ALPHA 

CL 

CD 

CL/CD 

CM{ 1/4) 

ALPHA 

CL 

CD 

CL/CD 

CM( 1/4 ) 

- 1 . 000000 

0.418226 

0.009360 

44 . 680600 

-0.075595 

- 1 . 000000 

0.420333 

0.009360 

44.905680 

-0.076005 

0 . 000000 

0.518126 

0.009712 

53.347590 

-0.076998 

0 . 000000 

0.520736 

0.009712 

53.616340 

-0.077422 

1 . 000000 

0.618026 

0.010203 

60.574240 

-0.078400 

1 . 000000 

0.621140 

0.010203 

60.879400 

-0.078839 

2 . 000000 

0.717926 

0.01 1083 

64 . 776260 

-0.079803 

2 . 000000 

0.721543 

0.01 1083 

65. 102600 

-0.080256 

3 . 000000 

0.817826 

0.01 1724 

69 . 757200 

-0.081206 

3 . 000000 

0.821946 

0.01 1724 

70. 108620 

-0.081673 

4 . 000000 

0.917726 

0.012258 

74.867980 

-0.082609 

4 . 000000 

0.922349 

0.012258 

75.245140 

-0.083090 

5 . 000000 

1 .017626 

0.013931 

73.047980 

-0.08401 1 

5 . 000000 

1 .022752 

0.013931 

73.415930 

-0.084507 



* CLARK Y SERIES AIRFOIL DATA BANK * 


* CLARK Y SERIES AIRFOIL DATA BANK * 


ALTITUDE 

= 

9999.9960 FEET 

ALTITUDE = 

9999.9960 FEET 

CHORD 

= 

0.750000 FEET 

CHORD = 

0.750000 FEET 

(T/OMAX 

= 

0.117000 (S) 

(T/OMAX = 

0.117000 (S) 

CLD 

= 

0.505381 

CLD = 

0.505381 

ALPHALO 

= 

-5. 186451 DEG. 

ALPHALO = 

-5. 186451 DEG. 

MACH NO. 

= 

0 . 200000 

MACH NO. = 

0 . 400000 

REYNOLDS NO. 

= 

0 . 823587E 06 

REYNOLDS NO. = 

0. 164717E 07 


ALPHA 

CL 

CD 

CL/CD 

CM( 1/4) 

ALPHA 

CL 

CD 

CL/CD 

CM( 1/4 ) 

- 1 . 000000 

0.426850 

0 . 009360 

45.601940 

-0.077277 

- 1 . 000000 

0.456322 

0.009360 

48 . 750530 

-0.083064 

0 . 000000 

0.528810 

0.009712 

54.447640 

-0.078738 

0 . 000000 

0.565322 

0.009712 

58 . 206980 

-0.084734 

1 . 000000 

0.630770 

0.010203 

61 .823330 

-0.080200 

1 . 000000 

0.674322 

0.010203 

66.091910 

-0.086404 

2 . 000000 

0.732730 

0.01 1083 

66.11 1990 

-0.081661 

2 . 000000 

0.783321 

0.01 1083 

70.676690 

-0.088074 

3 . 000000 

0.834690 

0.01 1724 

71 . 195640 

-0.083122 

3 . 000000 

0.892321 

0.01 1724 

76 . 1 11350 

-0.089744 

4 . 000000 

0.936650 

0.012258 

76.411800 

-0.084583 

4 . 000000 

1 .001321 

0.012258 

81 .687630 

-0.091414 

5 . 000000 

1 .038610 

0.013931 

74.554260 

-0.086044 

5 . 000000 

1 . 1 10320 

0.013931 

79.701840 

-0.093084 



Case 2 

Input /Output 
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CO 


1 

2 

3 

4 

5 


6 

7 

a 

9 

10 
1 1 


12 


13 

14 


15 

16 

17 

18 


19 


//CLARKY JOB ( R230 „ 006B , S02 , 003 , A7 ) , ' CLARKY ' 

//♦MAIN USER=R230$A7 , ORG= XEROX 

/ /* PAS SWORD * ****#*$*****$**************************************:'S<****>fc**>I< 

//♦FORMAT PR,DDNAME=, JDE=JFMT1 , F0RMS=1111 
//*XBM WATFIV 
C 

C* * 

C* THIS PROGRAM WILL CALCULATE THE LIFT COEFFICIENT, DRAG, * 

C* AND MOMENT COEFFICIENT ABOUT THE QUARTER CHORD OR THE * 

C* LEADING EDGE, COORDINATES FOR A CLAYK Y AIRFOIL SECTION * 

C* * 

c*************************************************************** 

c 

DIMENSION CL (25, 25) , CD ( 25 , 25 ) , CLD ( 25 , 25 ) , ALPHA ( 7 ) ,ALPHA0(21 ), 

&RN( 25 ) , CM( 25 , 25 ) 

REAL HM( 2 ) , NCLD 
DATA HM/ 0.6,0. 85/ 

DATA ALPHA/- 2. 0,0. 0,2. 0,4. 0,6. 0,8.0, 10.0/ 

DATA ALTUDE/ lOOOO . / 

C 

C NOTE: CHORD MUST BE IN FEET 
C 

DATA CHORD/ 0 . 75/ 

DATA NUMACH/2/ 

DATA NUMALP/7/ 

DATA NCL/1/ 

DATA NCD/1/ 

.C 

CALL ATMCON( ALTUDE , TEMP , PRES , DEN , VI S , WA ) 

C 

C SPECIFY HERE THE KNOWN VALUE OF CLD OR TMAX 
C SET THE UNKNOWN VARIABLE (CLD OR (T/C)MAX) EQUAL TO ZERO 
C FOR EXAMPLE, NCLD = UNKNOWN VALUE OF CLD , T =KNOWN VALUE OF (T/C)MAX 
C NOTE: THIS CLD IS INCOMPRESSIBLE AND ONLY TO START THE CODE. 

DATA NCLD/O . 00/ 

C 

C IN ORDER TO BE CONSISTANT T IS NON-DIMENSIONAL 
C 

DATA T/O.30/ 

C 

CALL CLTMAX ( T , NCLD , ALPHLO , DNCLD ) 

C 

C SPECIFY HERE THE DESIRE FOR CLARK - Y AIRFOIL SECTION COORDINATES 
C AND ITS MOMENTS OF INERTIA BY INDICATING "I" FOR "YES", AND "O" 

C FOR "NO 11 FOR PARAMETER "L" 

C FOR EXAMPLE, L=1 
DATA L/1/ 

CALL CYCOOR(L, CHORD, T) 

C 

WR I TE ( 6 , 10) 

10 FORMAT ( ' 1 ' ,/////////, 56X, '***', IX, ' LIMITATIONS ' , IX, '***'//) 

C 

C SPECIFY HERE THE DESIRE FOR MOMENT COEFFICIENTS - EITHER CM 
C ABOUT THE NOSE OR THE QUARTER CHORD - BY INDICATING "1" FOR 
C "CM ABOUT THE NOSE 11 AND "2" FOR "CM ABOUT THE QUARTER CHORD" 

C FOR THE PARAMETER "M". IF CM IS NOT DESIRED, INDICATE "O” FOR 
C PARAMETER "M" . 

C FOR EXAMPLE , M=1 . 

DATA M/2/ 
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*** S3iVNiaaooD noddiv A->iyviD *** 



(T/OMAX 
0 . 300000 


CHORD (FT) 
0.750000 


AREA ( FT**2 ) 
0. 163012 


MAJOR 

MOMENT 

INERTIA 

0.00397 

IN**4 


MINOR 
MOMENT 
INERTIA 
0 . 000 3 S 
IN* *4 



*** LIMITATIONS *** 


cr> 


T/C = 
CMQC = 
ALPHAO 
ALPHAO 
T/C = 
CMOC = 
ALPHAO 
ALPHAO 
T/C = 
CMQC = 
ALPHAO 
ALPHAO 
T/C = 
CMQC = 
ALPHAO 
ALPHAO 
T/C = 
CMQC = 
ALPHAO 
ALPHAO 
T/C = 
CMQC = 
ALPHAO 
ALPHAO 


0.300000 IS GREATER THAN (T/C)MAX = 0.250000 OF FUNCTION CMFF 

-0.177439 IS GREATER THAN CMQCMAX = -0.004924 OF FUNCTION CMFF 


ALPHA-ALPHLO * 

12.712020 

IS 

GREATER 

THAN 

ALPHAOMAX = 

1 1 . 000000 

OF 

FUNCTION 

CDFF 

ALPHA-ALPHLO = 

12.712020 

IS 

GREATER 

THAN 

ALPHAOMAX = 

1 1 . 000000 

OF 

FUNCTION 

CDFF 


0.300000 IS GREATER THAN (T/C)MAX = 0.250000 OF FUNCTION CMFF 


-0.187114 IS GREATER THAN CMQCMAX = -0.027959 OF FUNCTION CMFF 


ALPHA-ALPHLO = 

14.712020 

IS 

GREATER 

THAN 

ALPHAOMAX = 

1 1 . 000000 

OF 

FUNCTION 

CDFF 

ALPHA-ALPHLO = 

14.712020 

IS 

GREATER 

THAN 

ALPHAOMAX = 

1 1 . OOOOOO 

OF 

FUNCTION 

CDFF 


0.300000 IS GREATER THAN (T/C)MAX * 0.250000 OF FUNCTION CMFF 


-0.196789 IS GREATER THAN CMQCMAX = -0.052096 OF FUNCTION CMFF 


ALPHA-ALPHLO = 

16 . 712020 

IS 

GREATER 

THAN 

ALPHAOMAX = 

1 1 . OOOOOO 

OF 

FUNCTION 

CDFF 

ALPHA-ALPHLO = 

16.712020 

IS 

GREATER 

THAN 

ALPHAOMAX = 

1 1 . OOOOOO 

OF 

FUNCTION 

CDFF 


0.300000 IS GREATER THAN (T/C)MAX = 0.250000 OF FUNCTION CMFF 


-0.206464 IS GREATER THAN CMQCMAX = -0.077333 OF FUNCTION CMFF 


ALPHA-ALPHLO = 

18.712020 

IS 

GREATER 

THAN 

ALPHAOMAX = 

1 1 . OOOOOO 

OF 

FUNCTION 

CDFF 

ALPHA-ALPHLO = 

18.712020 

IS 

GREATER 

THAN 

ALPHAOMAX = 

1 1 . OOOOOO 

OF 

FUNCTION 

CDFF 


0.300000 IS GREATER THAN (T/C)MAX = 0.250000 OF FUNCTION CMFF 


-0.216139 IS GREATER THAN CMQCMAX = -0.103671 OF FUNCTION CMFF 


ALPHA-ALPHLO = 

20.712020 

IS 

GREATER 

THAN 

ALPHAOMAX = 

1 1 . OOOOOO 

OF 

FUNCTION 

CDFF 

ALPHA-ALPHLO = 

20.712020 

IS 

GREATER 

THAN 

ALPHAOMAX = 

1 1 . OOOOOO 

OF 

FUNCTION 

CDFF 


0.300000 IS GREATER THAN (T/C)MAX = 0.250000 OF FUNCTION CMFF 


-0.225814 IS GREATER THAN CMQCMAX = -0.131110 OF FUNCTION CMFF 


ALPHA-ALPHLO = 

22.712020 

IS 

GREATER 

THAN 

ALPHAOMAX = 

1 1 . OOOOOO 

OF 

FUNCTION 

CDFF 

ALPHA-ALPHLO = 

22.712020 

IS 

GREATER 

THAN 

ALPHAOMAX = 

1 1 . OOOOOO 

OF 

FUNCTION 

CDFF 



T/C = 0.300000 IS GREATER THAN (T/C)MAX = 0.250000 OF FUNCTION CMFF 

CMQC = -0.235489 IS GREATER THAN CMQCMAX = -0.159650 OF FUNCTION CMFF 

MACH NO. = 0.850000 IS GREATER THAN MACH NO. (MAX) = 0.800000 OF FUNCTION 

T/C = 0.300000 IS GREATER THAN (T/C)MAX = 0.250000 OF FUNCTION CMFF 

CMQC = -0.177439 IS GREATER THAN CMQCMAX = -0.004924 OF FUNCTION CMFF 

MACH NO. = 0.850000 IS GREATER THAN MACH NO. (MAX) = 0.800000 OF FUNCTION 

ALPHAO = ALPHA-ALPHLO = 12.712020 IS GREATER THAN ALPHAOMAX = 11.000000 OF 

ALPHAO = ALPHA-ALPHLO = 12.712020 IS GREATER THAN ALPHAOMAX = 11.000000 OF 

T/C = 0.300000 IS GREATER THAN (T/C)MAX = 0.250000 OF FUNCTION CMFF 

CMQC = -0.187114 IS GREATER THAN CMQCMAX = -0.027959 OF FUNCTION CMFF 

MACH NO. = 0.850000 IS GREATER THAN MACH NO. (MAX) = 0.800000 OF FUNCTION 

ALPHAO = ALPHA-ALPHLO = 14.712020 IS GREATER THAN ALPHAOMAX = 11.000000 OF 

ALPHAO = ALPHA-ALPHLO = 14.712020 IS GREATER THAN ALPHAOMAX = 11.000000 OF 

T/C = 0.300000 IS GREATER THAN (T/C)MAX = 0.250000 OF FUNCTION CMFF 

CMQC = -0.196789 IS GREATER THAN CMQCMAX = -0.052096 OF FUNCTION CMFF 

MACH NO. = 0.850000 IS GREATER THAN MACH NO. (MAX) = 0.800000 OF FUNCTION 

ALPHAO = ALPHA-ALPHLO = 16.712020 IS GREATER THAN ALPHAOMAX = 11.000000 OF 

ALPHAO * ALPHA-ALPHLO = 16.712020 IS GREATER THAN ALPHAOMAX = 11.000000 OF 

T/C = 0.300000 IS GREATER THAN (T/C)MAX = 0.250000 OF FUNCTION CMFF 

CMQC = -0.206464 IS GREATER THAN CMQCMAX = -0.07J333 OF FUNCTION CMFF 

MACH NO. = 0.850000 IS GREATER THAN MACH NO. (MAX) = 0.800000 OF FUNCTION 

ALPHAO = ALPHA-ALPHLO = 18.712020 IS GREATER THAN ALPHAOMAX = 11.000000 OF 

ALPHAO = ALPHA-ALPHLO « 18.712020 IS GREATER THAN ALPHAOMAX = 11.000000 OF 

T/C = 0.300000 IS GREATER THAN (T/C)MAX = 0.250000 OF FUNCTION CMFF 

CMQC = -0.216139 IS GREATER THAN CMQCMAX = -0.103671 OF FUNCTION CMFF 

MACH NO. = 0.850000 IS GREATER THAN MACH NO. (MAX) = 0.800000 OF FUNCTION 

ALPHAO = ALPHA-ALPHLO = 20.712020 IS GREATER THAN ALPHAOMAX = 11.000000 OF 

ALPHAO = ALPHA-ALPHLO = 20.712020 IS GREATER THAN ALPHAOMAX = 11.000000 OF 

T/C = 0.300000 IS GREATER THAN (T/C)MAX = 0.250000 OF FUNCTION CMFF 


THKSLP 


THKSLP 

FUNCTION 

FUNCTION 


THKSLP 

FUNCTION 

FUNCTION 


THKSLP 

FUNCTION 

FUNCTION 


THKSLP 

FUNCTION 

FUNCTION 


THKSLP 

FUNCTION 

FUNCTION 


CDFF 

CDFF 


CDFF 

CDFF 


CDFF 

CDFF 


CDFF 

CDFF 


CDFF 

CDFF 


CMQC 


-0.225814 IS GREATER THAN CMQCMAX 


-0.131110 QF FUNCTION CMFF 



MACH NO. 


0.850000 IS GREATER THAN MACH NO. (MAX) 


0.800000 OF FUNCTION THKSLP 


ALPHAO 
ALPHAO 
T/C = 
CMQC = 


: ALPHA-ALPHLO = 22.712020 IS GREATER THAN ALPHAOMAX « 11.000000 OF FUNCTION CDFF 
: ALPHA-ALPHLO = 22.712020 IS GREATER THAN ALPHAOMAX = 11.000000 OF FUNCTION CDFF 
0.300000 IS GREATER THAN (T/C)MAX = 0.250000 OF FUNCTION CMFF 

-0.235489 IS GREATER THAN CMQCMAX = -0.159650 OF FUNCTION CMFF 



* CLARK Y SERIES AIRFOIL DATA BANK * * CLARK Y SERIES AIRFOIL DATA BANK * 


ALTITUDE 

= 

9999.9960 FEET 

ALTITUDE = 

9999.9960 FEET 

CHORD 

= 

0.750000 FEET 

CHORD = 

0.750000 FEET 

(T/C)MAX 

= 

0 . 300000 ( S ) 

( T/C )MAX = 

0 . 300000 ( S ) 

CLD 

= 

1 .016961 

CLD = 

1 .016961 

ALPHALO 

= 

-12.712020 DEG. 

ALPHALO = 

-12.712020 DEG. 

MACH NO. 

= 

0 . 600000 

MACH NO. = 

0.850000 

REYNOLDS NO. 

= 

0 . 247076E 07 

REYNOLDS NO. = 

0 . 350024E 07 


ALPHA 

CL 

CD 

CL/CD 

CM( 1/4) 

ALPHA 

CL 

CD 

CL/CD 

CM( 1/4) 

-2.000000 

0.787648 

0.132073 

5.963749 

-0.221799 

-2.000000 

0.787648 

0.444107 

1 .773553 

-0.336836 

0 . OOOOOO 

0.934707 

0. 194073 

4.816274 

-0.233893 

0 . OOOOOO 

0.934707 

0.457249 

2.044195 

-0.355202 

2 . OOOOOO 

1 .081765 

0.256073 

4.224447 

-0.245987 

2 . OOOOOO 

1 .081765 

0.470393 

2.299704 

-0.373568 

4 . OOOOOO 

1 .228824 

0.318072 

3.863345 

-0.258080 

4 . OOOOOO 

1 . 228824 

0.483535 

2.541334 

-0.391934 

6 . OOOOOO 

1 .375882 

0.380072 

3.620055 

-0.270174 

6 . OOOOOO 

1 .375882 

0.496678 

2.770166 

-0.410301 

8 . OOOOOO 

1 .522942 

0.442072 

3 . 445008 

-0.282268 

8 . OOOOOO 

1 .522942 

0.509821 

2.987208 

-0.428667 

10.000000 

1 . 670000 

0 . 50407 1 

3.313024 

-0.294362 

10.000000 

1 . 670000 

0.522964 

3. 193339 

-0.447033 



II.NACA 4-DIGIT AIRFOIL DATA BANK 


1. Introduction 

With the advent of the NACA 4-digit family of airfoils, a 
convenient and systematic method of design was created, 
treating separately the camber and thickness distributions. For 
example, the airfoil thickness distribution for the NACA 4-digit 
family was obtained by uncambering airfoils such as the Gottingen 
398 and the Clark-Y. The designation of the NACA 4-digit airfoil 
family is related to the section geometry where the first integer 
indicates the maximum value of the mean line ordinate y c in 
percent of the chord. The second number indicates the distance 
from the leading edge to the location of the maximum camber, and 
the last two digits indicate the thickness of the section in % 
chord. The NACA 4-digit data bank computer program listed in 
Appendix I provides lift, drag, and moment coefficients about 
the airfoil quarter chord or leading edge. The coordinates for 
these NACA 4-digit airfoils have the maximum camber located at 
mid-chord, and therefore have the designation X5XX. The data 
base for the computer code has been derived from the study of 
McCormick, et.al.^ 1 ^, and the airfoil coordinates and moment 
coefficients are calculated using the method of Jacobs, 
et.ai J 2 ). It should be noted that all interpolation and 
extrapolation is done by the Lagrangian method in subroutine 
LINEAR. 

The current data bank has been compared to the airfoil 
analysis code of Smetana, et.al. (3) , with the results given in 
Table I. As noted, the absolute difference between the 
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theoretical predictions of Smetana et.al . and the NACA 4-digit 
airfoil data bank is acceptable with an average deviation of 6.4% 
for a 1 1 cases. 

2. Input 

The User may specify any airfoil of the NACA 4-digit family 
which has the maximum camber at the mid-chord position. A 
maximum of 10 values of (t/c) max may be specified, and either the 
maximum mean 1 ine ordinate in per cent of chord (Z), or the 
design 1 i ft coefficient (C^) can be evaluated at any one time. 
A complete listing of input parameters and associated 
descriptions is given in Table II. It may be noted that the 
Reynolds number may be supplied by the variable, RE, or may be 
computed from CHORD, MACH, and ALT specified in the input. In 
this case, the variable RE must be set to 0.0, and any value 
between 4X10^ to 1X10 Z based on airfoil chord is computed. 

3. Main Program 

The main program routes the various input parameters to the 
subroutines, with the computations from the subroutines returned 
to the main program and output. There are, however, several 
parameters that are computed in the main program. For example, 
to obtain C j and it is necessary to initially obtain the 
optimum lift coefficient, Ciop-^, given by the equation: 

C 1 opt = z C(Re) D ( ( t/c ) max ) I I — 1 
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where Z is the (y/c) percentage of maximum camber. the Reynolds 
number function (C(Re)) and thickness function (D(t/c) max ) for 
optimum lift coefficient are expressed as; 

C (Re) = -14. 0(Alog 10 (Re)-6.0) + 24.5 II-2 
D((t/c)max) = -3 .8438( (t/c)max) + 1.0 I 1-3 


The drag coefficient is then computed by summing the increments 
due to lift not being optimum, camber, thickness, and Reynolds 
number . 

When the lift coefficient is not optimum, the increase in 
drag is found through the parameter, X, given as: 


^ 1 £ 1 opt 

^ 1 max” ^lopt 


I 1-4 


This factor is translated to a AC^ by Figure I in subroutine CDL. 
The effects of camber and thickness are found in subroutine CDMN, 
and the effects of Reynolds number (E(Re)) are obtained in RECD 
finally yielding: 

^dmin “ ^dminl E(Re) I 1-5 


The drag coefficient is then found as a sum of these effects, 
i . e . , 

^d = c dmin + AC d I 1-6 

The lift coefficient is a result of the angle of attack, 
camber, and (t/c) max . The design lift coefficient is either 
given as an input parameter or found from the maximum camber 
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parameter, Z, in subroutine CLDVSZ. The 1 i ft-curve slope is 
computed by a series of IF statements for various (t/c) max 
va 1 ues : 


dC ] 


da 


1- (t/c)max 


v o 


V 


1- ( (t/c)max) ^ 


I 1-7 


A 0 is prescribed by the 

( t/c ) max 

* 20 % 
20%~17% 
1 6%- i 4% 
1 3%- 1 1 % 
1 0%-08% 
Q7%-05% 
< 05% 


value of (t/c) max as follows: 

A 0 

0 . 1321 
0.1216 
0.1175 
0. 1 134 
0. 1043 
0. 1039 
0.1021 


The increment of 1 ift due to angle of attack is then calculated 


by : 


AC} 


dC } 
da 


a 


1 1-8 


and is corrected for compress i b i 1 i ty effects by the Prandtl- 
Glauert correction factor: 

< iC l>comp = (4C,)inc /\j 1-M 2 ' !I ~ 9 

Finally, the lift coefficient is found by: 


C } = C i + AC } 


I I- 10 


The remainder of the main program consists of CALL 
statements for various subroutines and output statements for the 
data . 
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4. Subroutine ATMCON 

ATMCON calculates the temperature, pressure, speed of sound, 
density, and viscosity for a specified altitude using the 
empirical equations of Minzer, et.al.^ as given by Anderson 
These equations have been curve fit from the available data of 
the ARDC 1959 standard atmosphere (4) , and divide the atmosphere 
into two regions, i.e., from sea level to 11,000 meters, and 
11,000 to 25,000 meters. These equations are given ass 
Sea 1 eve 1 to 11,000 meters . 

Temp = 288.16 - 0.0065 h I I- 11 

P = ( 1 0 1 325 ) / ( l/(Temp/288. 16) )" 5 * 2457 ^ # M-12 

1 1 , 00 0 meters to 25,000 meters . 

Temp =216.66 11-13 

P= (22,703. 59) exp ( 0. 0001547 (h-1 1 ,000) ) 11-14 

where h is in meters. Temperature is in *K,and pressure P is in 
N/m 2 . The values of P and temperature are converted by; 

Temp = (Temp - 273.15) 9/5 +491.67 11-15 

P = 2116.2 P/101325 11-16 

where Temp and P are now in units of and lbs/ ft 2 , 

respectively. Values of density, viscosity, and speed of sound 
are then calculated by; 

Density = ( Pressure )/( 1 7 1 8 )( Temp ) 11-17 

V i scos i ty =3.5 x 1 0“7 (Temp/ 4 92) ^ *^(690/ (Tempt 1 98) ) 11-18 
Speed of Sound = ^ ( 403 . 2 ) (Temp) /0 . 3047^ 11-19 

where density is on lb-ft 2 /sec 4 , viscosity in lb-sec/ft 2 , and 
speed of sound in ft/sec. 
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5. Subroutine CLDVSZ 


Subroutine CLDVSZ finds the maximum camber ,Z, if the design 

lift coefficient, C^, is input, or will obtain C^ if Z is input 

given (t/c) max . The tabular data contained in the subroutine are 
for C i cj values of 0.2, 0.4, 0.6, and 0.8, and for maximum camber 
values of 0.02, 0.04, 0.06, 0.08. Data are also contained for 

(t/c) max values of 4, 6, 9, 12, and 18 percent. If any of the 

required input correspond to values not listed above, subroutine 

LINEAR will interpolate between or extrapolate beyond the tabular 
data . 

The data for these relationships were obtained using the 
airfoil analysis program of Smetana, et.al.^^. Sweeps were made 
for different values of C ] d and Z for various (t/c) max values. 
Also, different values of Reynolds number were investigated and 
shown to have a minimal effect on C^, therefore Reynolds number 
was not included as a function of the Z relationship. 

6. Subroutine MAXCL 

The maximum lift coefficient is estimated as a function of 

the maximum camber Z and the thickness of the airfoil, (t/c) max « 
The tabulated data in this subroutine were obtained by taking the 
values given in Figure 2, i.e., c | m ax versus (t/c) max tor various 

Z values, as given by McCormick*- The Eppler airfoil analysis 

code* 6 ^ was also used to partial ly verify the results contained 
in the data bank. 
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7. Subroutine CDL 


Subroutine CDL finds the effect of lift on the drag 
coefficient. The data was tabulated from Figure 1 for which the 
effects of Z were included, and when necessary interpolated using 
subroutine LINEAR. 

8. Subroutine CDMN 

The minimum drag coefficient for Reynolds numbers between 
6X10^ and 1X10^ are calculated in the CDMN subroutine. LINEAR 
is used to interpolate between the tabulated data for 6 values of 
camber and 12 values of (t/c) max contained within the computer 
code. These data were taken from Figure 3 and expanded using 
Smetana, et.a 1 

9. Subroutine RECD. 

Subroutine RECD tabulates the data contained in Figure 4 to 
add the Reynolds number effects to the minimum drag coefficient. 
The value obtained is multiplied in the main program by the 
minimum drag coefficient found previously in CDMN to obtain 
CDMIN. The Reynolds number effects are such that Reynolds 
numbers lower than 6X10^ increase the minimum drag while Reynolds 
numbers greater than 5X1 0& lower the minimum drag. 

10. Subroutine FDCOOR 

This subroutine calculates the y/c dimensions of a NACA 4- 
digit a i rfoi 1 section. The f o 1 lowing equations are used in the 
computation, and the symbols are defined ass 
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X 


Y sin 8 


I 1-20 


x u » 


Y u - 


X 


Y 1 = 


Y c ~ Y t 
X + Y 1 
Y c + Y t 


COS 0 

sin 0 
cos 6 


I 1-21 
I 1-22 
I 1-23 


where ; 

9 tan" 1 (dy c /dx c ) 

X u - abscissa of a point on the airfoil upper surface 

X] ~ abscissa of a point on the airfoi 1 lower surface 

X c - abscissa of point on the mean line 

Y c - ordinate of point on the mean line 

Y u - ordinate of point on the upper surface of a wing 
sect i on 

Y ] - ordinate of point on the upper surface of a wing 

sect i on 

Y^. - ordinate of point on the surface of a symmetrical 
sect i on 

X u and X] are at a common chordwi se location* Y , 
nond i mens i ona 1 ized by the chord represents the ordinate of the 
symmetrical thickness distribution found by the equation: 


Yt 

c 


( t/c )max 

0.20 


(0.2969 X - 0.1260 X - 0.3516 X2 + 0.2843 X 2 
- 0.1015 X 4 ) I 1-24 


where t is the non-dimensional maximum thickness 
fraction of the chord. The leading 
nond i mens i ona 1 i zed by the chord is defined by: 


1.1019 ((t/c)max) 2 


expressed as a 
edge radius 


I 1-25 
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The shape of the mean line is expressed analytically as two 
parabol ic arcs that are tangent at the maximum camber 
location^* and are expressed as; 

(Forward of the maximum ordinate) 

Z 

Y _ — - ( 2 P X - X 2 ) 11-26 

(Aft of the maximum ordinate) 

Z 

Y = — ■ ((1-2 P) + 2 P X - X 2 ) 11-27 

( 1-P2) 

Z is the maximum ordinate of the mean line as defined earlier, 
and P is the chordwise position of the maximum ordinate which has 
been fixed at 0.5. The y-di mens ions are computed at 14 locations 
to calculate the moment coefficient by subroutine QCCM. 

II. Subroutine QCCM 

With the coordinates generated in FDCOOR* the moment 
coefficient is found by applying a method developed by 
Pankhurst^ 8 ^ utilizing the airfoil coordinates. The quarter 
chord moment coefficient is found by the summations 

C mc/4 = SB ( Y u + Y,) 11-28 

where the coefficient B is defined in Table III as a function of 
the non-dimensional chordwise location* X. The moment 
coefficient about the leading edge of the airfoil is found from 
the equations 

^mle ~ Cmc/4 " ^ . 25 C ] 11-29 
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The effects of compressibility are accounted for by the Prandt 1 - 


Glauert factor, i . e . , 

^mc/4^comp = 


^ ^mc/4 , 1 e ) i nc 

V 1 - M2 ' 


I 1-30 


12 Subroutine FDCR 

Subroutine FDCR employs the same equations as subroutine 
FDCOOR * However, 53 stations along the airfoil chord are computed 
if desired and given in tabular form in the output. This 
subroutine has been added to allow the User to obtain a detailed 
set of airfoil coordinates for later use in the airfoil analyses 
codes of Eppler(&> and Smetana, et.al.^ 3 ). 

13. Subroutine AREA 

This subroutine finds the area, coordinates of the centroid 
and moments of inertia for the NACA 4 - d i g i t airfoil cross 
section under study. The subroutine employs a trapezoidal 

integration scheme to find the cross sectional area. The moments 
of inertia are found by utilizing: 

1 e 

^2 dA ( i n 4 ) 11—31 

te 

e 1 e 

I MI NOR = j X 2 dA (in 4 ) 11-32 

te 

14. Limitations 

The following limits are suggested to guide the User for 
proper utilization of the NACA 4-digit airfoil data bank. These 
limitations can be exceeded slightly with minimal error, however 


I MAJOR = 
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caution must be exercised as to the extent these limitations are 
violated. The Reynolds number for which the airfoil data bank is 
valid ranges from 4X105 to 10X1Q&, and maximum Z values of less 
than 0.09. The maximum camber relationship is governed by limits 
of C | ^ and (t/c) max as given in subroutine CLDVSZ. The flags 
appear as: 

(1) REYNOLDS NUMBER=0 . 500000E 04 IS LESS THAN RE(MIN) = 0.400E 06 

(2) LIMITATIONS FOR MACH NO. - 0.90 

(3) MAX. CAMBER = 0.10 IS GREATER THAN Y/C(MAX) = 0.90 FOR CLD = 0.90 
AND T/C = 0.12 

15. Output 

A sample case is given in Appendix II to show how the code 
is used, and corresponds to an angl e-of-attack sweep from -10 to 
8 degrees in increments of 2 degrees at a Mach number of 0.19. 

The full output was selected to show the capabilities and output 
format of the computer code. 
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Table I 


Percent Difference in Comparison of NACA X5XX Data 
Bank and Smetana, et. al. Airfoil Analysis Code 
(Ref. 3). 


AIRFOIL 

MACH 

NO 

REYNOLDS 

NOxlO" 6 

•4* \ 

O 

S 

o 

LIFT COEFFICIENT, 

C L 

DRAG COEFFICIENT, C D 

-2° 

0° 

2° 

6° 

10° . 

-2° 

0® 

2® 

6° 

10° 

2503 

0.01 

3.12 

3.7 

50.2 

* 

4.4 

0.3 

k 

9.5 

* 

“4.5 

0.3 

* 

2504 

0.01 

1.50 

4.2 

63.3 

9.7 

5.9 

1.7 

k 

-1.0 

-0.8 

0.2 

3.6 

* 

2504 : 

0.01 

3.12 

2.3 

70.4 

* 

5.9 

0.6 

k 

16.1 

k 

5.8 

20.0 

* 

2506 

0.01 

1.50 j 

1.4 

157.6 

9,3 

6.1 

2.0 

k 

-0.6 

0.2 

1.4 

10.1 

* 

2506 

0.01 

3.12 

-1.1 

123.5 

* 

6.0 

0.8 

k 

4.9 

& 

8.7 

34.7 

* 

2509 

0.01 

1.50 

0.8 

190.8 

8.8 

3.9 

1.2 

k 

-0.9 

-0.3 

1.8 

9.3 

* 

2512 

0.01 

1.50 

“2.3 

“76.3 

8.5 

3.9 

4.0 

k 

-4.9 

“12.4 

-0.3 

25.6 

* 

2512 

0.01 

3.12 

“4.4 

125.1 

7.0 

2.4 

2.1 

k 

6.1 

3.5 

5.4 

53.1 

* 

2512 1 

0.40 

2.91 

- 

18.0 

“7.0 

3.0 

0.5 

k 

5.0 

3.0 

8.0 

2.0 

k 

2515 

0.70 

3.00 

“5.5 

-164.5 

* 

-12.5 

-1.1 

15.6 

-10.1 

* 

-26.8 

* 

k 

2518 

0.01 

1.50 

“6.9 

112.2 

8.2 

2.3 

4.1 

k 

8.1 

0.4 

4.4 

-1.1 

& 

2518 

0.01 

3.12 

“9.2 

96.8 

5.9 

0.4 

0.2 

& 

: 

22.8 

32.7 

35.8 

56.9 

* 

2518 

0.20 

1.46 

- 

87.0 

■ k 

0.0 

1.5 

2.0 

-3,0 

* 

“2.0 

8.0 

1.0 

2521 

0. 70 

1.00 

22.7 

-236.2 

k 

-0.2 

21.3 

* 

-34.8 

k 

-50.3 

19.2 

k 

3514 

0.60 

4.00 

“3.5 

“31.2 

k 

-13.9 

-3.3 

4.2 

7.8 

k 

“3.0 

3.9 

k 

3521 

0.60 

2.00 

13.9 

“35.1 

k 

-10.2 

-3.9 

18.1 

-20.8 

k 

-30.9 

-29.0 

k 

4503 

0.01 

3.12 

6.4 

12.5 

k 

4.0 

11.2 

k 

-53.0 

k 

-34.6 

-85.3 

k 

4504 

0.01 

1.50 

2.4 

14.7 

4.6 

3.7 

3.0 

k 

-1.3 

0.0 

8.6 

0.1 

k 

4504 

0.01 

3.12 

1.7 

13.2 

k 

3.0 

1.6 

k 

11.7 

k 

14.3 

21.9 

k 

4506 

0.01 

1.50 

1.1 

21.8 

9.0 

7.4 

5.3 

* 

: 

-1.9 

“3.0 

0.2 

-0.1 

k 

4506 

0.01 

3.12 

-1.4 

19.8 

* 

4.3 

3.5 

* 

6.9 

* 

0.5 

22.6 

k 

4509 

0.01 

1.50 

0.6 

46.4 

19.7 

14.6 

8.8 

* 

-7.6 

-6.4 

5.2 

-1.7 

k 


' 
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Table I. (cont) 


AIRFOIL 

MACH 

NO 

> — -- — --I 

CO 

QvO 

i-3 1 
o o 

pH 

£ X 
w o 
3 53 

St M 

c/4 

LIFT COEFFICIENT, C L 


DRAG COEFFICIENT, 

C D 

-2° 

0° 

B 

6° 


-2° 

0° 

2° 

6° 

10° 

4509 

0.60 

4.37 

-5.8 

-6.6 

* 

-11.3 

-5.2 

1.4 

5.9 

* 

10.8 

23.4 

k 

4512 

0.01 

1.50 

»0.7 

27.3 

12.9 

9.6 

6.6 

k 

3.1 

-0.6 

1.7 

38.3 

k 

4512 

0.01 

3.12 

-2.3 

25.1 

10.2 

7.7 

5.3 

k 

21.8 

36.2 

22.0 

53.6 

k 

4512 

0.40 

2.91 

* 

3.0 

* 

”4.0 

-1.0 

1.0 

0.0 

k 

2.0 

21.0 

-2.0 

4518 

0.01 

1.50 

0.4 

8.8 

4.3 

1.9 

3.0 

* 

-5.8 

-1.1 

6 . 1 

26.0 

ft 

4518 

0.01 

3.12 

~4.1 

3.4 

-0.9 

-1.6 

0.2 

k 

15.8 

16 . 6 

24.4 

34.7 

ft 

4518 

0.20 

1 .46 

& 

2.0 

■k 

-1.4 

-0.5 

0.5 

-1.5 

* 

-8.0 

15.0 

-2.0 

5506 

0.40 

3.00 

-2c 2 

-5.3 

k 

-7.7 

-2.6 

-0.7 

8.4 

* 

19.8 

3.3 

k 

5512 

0.40 

4.00 

”4.9 

—9 o 7 

k 

-9.1 

-5.1 

-1.6 

25.6 

* 

31.6 

24.2 

-9.8 

6504 

0.01 

1 o50 

2.6 

7.4 

3.1 

2.0 

4.0 

* 

-3.3 

0.3 

0.8 

1.1 

k 

6504 

0.01 

3.12 

1.4 

4.8 

k 

-0.2 

1.9 

k 

11.9 

* 

37.3 

38.9 

k 

6506 

0.01 

1.50 

1.4 

12.3 

6.0 

4.9 

6 . 6 

k 

-0.1 

-0.8 

-0.1 

4.6 

k 

6506 

0.01 

3.12 

-0.1 

10.3 

k 

2.0 

4.4 

k 

21.7 

- 

22.9 

40,9 

k 

6509 

0.01 

1.50 

0.8 

28.0 

16.3 

12.2 

7.8 

k 

-3.5 

-7.4 

1.8 

11.3 

k 

6509 

0.30 

3.00 

-3.5 

12.9 

* 

1.3 

1.9 

2.9 

3.8 

k 

16.6 

125.0 

-14.6 

6509 

0.50 

3.64 

-2.1 

-1.3 

k 

”6.1 

-3.0 

-0.5 

5.1 

k 

6.3 

-14.0 

k 

6512 

0.01 

1.50 

-0.1 

2.7 

0.0 

0.9 

0.9 

ft 

-1.1 

0.1 

-0.7 

25.5 

k 

6512 

0.01 

3.12 

-1.5 

-0.1 

-2.1 

-2.2 

0.9 

k 

18.3 

23.6 

42.4 

27.4 

k 

6515 

0.30 

2.00 

-5.6 - 

-13.4 

k 

-10.5 

-7.4 

-3.4 

-0.6 

k 

5. 4 

10.9 

-24.4 

6521 

0.30 

1.00 

-3.3 

2.8 

k 

-0.4 

-0.4 

1.8 

-15.1 

k 

-3.6 

-5.8 

-18.1 

6521 

0.30 

2.18 

-5.3 

-1.8 

k 

-3.3 

-2.7 

-0.5 

5.1 

k 

20.0 

13.7 

-4.3 

8504 

0.01 

1.50 

2.0 

3.9 

2.3 

2.0 

5.2 

k 

1.0 

-1.5 

0.9 

0.6 

* 

8506 

0.01 

1.50 

1.8 

5.0 

2.3 

1.5 

5.0 

ft 

1.7 

-1.3 

0.6 

-0.4 

k 

8506 

0.01 

3.12 

0.7 

2.6 

0.0 

-1.2 

3.7 

k 

36.5 

37.1 

82.7 

45.5 

k 
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Table I. (cont) 


i, 


AIRFOIL 

MACH 

NO 

REYNOLDS 

NOxlO’ 6 

*d- 

o 

LIFT COEFFICIENT, C L 

— 1 — 

DRAG 

COEFFICIENT, C D 


-2° 

0° 

2° 

6° 

10° 

-2° 

0° 

2° 

6° 

10° 

8509 

0.01 

1.50 

0.9 

5.0 

2.3 

-0.5 - 

-0.7 

k 

-0.1 

1.2 

1.1 

-0.1 

k 

8512 

0.01 

1.50 

0.7 

5.3 

2.2 

1.6 

1.4 

k 

-1.4 

-0.3 

3.4 

5.3 

k 

8512 

0.01 

3.12 

-0.7 

2.4 

0.5 

-0.9 

1.2 

k 

17.4 

38.7 

39.4 

6.2 

k 

8518 

0.01 

1.50 

0.8 

6.4 

2.4 

0.7 

1.4 

k 

0.7 

0.4 

0.4 

4.7 

k 

|avg. 

% DEV. | 


3.3 

6.4 

6.1 

4.5 

3.4 

5.9 

9.6 

8.5 

13.3 

18.7 - 

9.2 

NOTE: 

*Airfoil analysis codes yielded 

unrealistic 

values 

or did not 

run. 
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Table II 


NACA 4-Digit Airfoil Data Bank Input Parameters 


ALPHA 

NUMALP 

CLD 

NZRCLD 

TC 

NUMTC 

CHORD 

MACH 

RE 

ALTITUDE 

MCP 


ACP 

CAMP 


A n g 1 e ( s ) -of- Attack . 

Number of Alphas. 

Design Lift Coefficient. 

Number of values of CLD or Z to be calculated. 

Maximum Th i ckness-to-Chord ratio. 

Number of Th i ckness-to-Chord values to be 
ca 1 cu 1 ated . 

Input in dimensions of feet, which is used 
for calculation of Reynolds Number. 

Mach Number (Free-Stream) . 

Reynolds Number. For calculation based on 
Mach number. Altitude, and Chord set RE=0.0. 

Geometric Altitude in Feet. 

Moment Coefficinet Parameter 

=0, if moment coefficients are not desired. 

= 1, for moment coefficient, about the quarter- 
chord . 

=2, for moment coefficient about the leading- 
edge . 

=3, for all moment coefficients. 

Airfoil Coordinates Parameter 

=0, of Airfoil Coordinates are not desired. 

=1, for the Airfil dection coordinates. 

Camber Parameter 

=0, if CLD is input and is calculated. 

=1, if Z is input and CLD is calculated. 
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Table III 


Constants for Moment Coefficient Calculation 


0.0 

- 0.119 

0.025 

- 0.156 

0.05 

- 0. 104 

0 . 1 

- 0.124 

0.2 

- 0.074 

0.3 

- 0.009 

0.4 

0.045 

0.5 

0.10 1 

0 . 6 

0.170 

0.7 

0.273 

0.8 

0.477 

0.9 

0.786 

0.95 

3.026 

1 . 00 

- 4.289 
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FOOsrl QUALi 1 1 



for Four-Digit Airfoils. 






Figure 2. Maximum Lift Coefficients for Four-Digit Airfoils 














Append ix - I 

NACA 4-Digit Program Listing 
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oonnnonnnooonnononnoooonnonnnnnnnnnonooononoonoooonnnnnnoonooooooooonno 


//FDBANKA JOB (R205 , 011C , S02 , 002 f A7 ) , ’ NACA4DM ' 
//*XBM WATFIV 
/ /$OPTIONS NOLIST 


******%*************r****«****4r*****«Mfc**********i*i**«r:fe*r»Mir«i*r*;»*i 


* THIS PROGRAM WILL CALCULATE THE LIFT COEFFICIENT, * 

* * 

* DRAG COEFFICIENT, MOMENT COEFFICIENT ABOUT THE * 

* *r 

* QUARTER-CHORD OR THE LEADING EDGE , AND THE COORDIN- * 

* * 

* ATES OF A NACA FOUR-DIGIT AIRFOIL SECTION WITH THE * 

* * 

* MAXIMUM CAMBER AT THE MID-CHORD POSITION * 

* 

*&********** A***^*:****)******************;********************. 


THE DATA BASE FOR THIS ROUTINE IS FROM: MCCORMICK, B .W . , EISENHUTH, J . J . , 

LYNN , J.E. ; "A STUDY OF TORPEDO PROPELLERS - PART I”, 1956. THE 
EQUATIONS AND GRAPHS CONTAINED IN CHAPTER TWO(2) FORM THE BASIS FOR 
THE CL AND CD CALCULATIONS. MOMENT COEFFICIENT AND AIRFOIL COORDINATES 
ARE CALCULATED USING EQUATIONS FROM: ABBOTT , I . H . , VONDOENHOFF , A . E . ; 

"THEORY OF WING SECTIONS", 1958. SPECIFIC EQUATIONS OR GRAPHS ARE 
REFERRED TO WITHIN THE PROGRAM AND AT THE BEGINNING OF EACH SUBROUTINE. 


ALPHA = ANGLE OF ATTACK 

CLD = DESIGN LIFT COEFFICIENT 

Z = Y/C PERCENTAGE VALUE OF MAXIMUM CAM&ER 
TC = MAXIMUM THICKNESS TO CHORD RATIO 
CHORD = LONGEST CHORD LENGTH (FEET) 

MACH = MACH NUMBER 
ALT = ALTITUDE (FEET) 

RE = REYNOLD'S NUMBER 

CMC 4 = MOMENT COEFFICIENT ABOUT THE QUARTER-CHORD 

CMLE = MOMENT COEFFICIENT ABOUT THE LEADING EDGE 

LERAD = LEADING EDGE RADIUS (NON-DIMENSIONAL I ZED BY THE CHORD) 

NUMALP ~ NUMBER OF ALPHA'S SPECIFIED 

NZRCLD = NUMBER OF Z’S OR CLD ’ S SPECIFIED 

NUMTC = NUMBER OF TC'S SPECIFIED 

NUMACH = NUMBER OF MACH NUMBERS SPECIFIED 

MCP = MOMENT COEFFICIENT PARAMETER 

= 0, IF MOMENT COEFFICIENTS ARE NOT DESIRED 
= 1, FOR THE MOMENT COEFFICIENT ABOUT THE QUARTER-CHORD 
= 2, FOR THE MOMENT COEFFICIENT ABOUT THE LEADING EDGE 
- 3, FOR ALL THE MOMENT COEFFICIENTS 

ACP = AIRFOIL COORDINATES PARAMETER 

= 0, IF AIRFOIL COORDINATES ARE NOT DESIRED 
= 1, FOR THE AIRFOIL SECTION COORDINATES 

CAMP = CAMBER PARAMETER 

■ 0, IF CLD IS INPUT AND Z IS CALCULATED 
=1, IF Z IS INPUT AND CLD IS CALCULATED 
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SPECIFY CLD OR Z, AND NZRCLD; DELETE THE OTHER ONE FROM DATA 
BUT DIMENSION THEM BOTH EQUALLY 


REAL ALPHA( 10) , CLD ( 1 , 1) , Z ( 1 , 1) , TC ( 1) , MACH ( 1 ) , 

&LERAD (10,10) , CL (10, 10, 10), CD (10, 10, 10), CLMAX(I0 ,10) ,CMC4(10,10) , 
&CMLE (10,10,10), XU (10,10,53) , YU( 10 , 10 , 53 ) , XL ( 10 , 10 , 53 ) , 

&YL ( 10 , 10,53) ,X( 10, 10,10) ,TC0(13) , BT(13) , IMAJ , IMIN 
INTEGER ACP, CAMP 

DATA ALPHA / -10 .0, -8 . 0 , -6 . 0,-4 .0, -2 .0,0 . 0, 2 .0 , 4 . 0, 6 . 0 , 8 . 0/ 

DATA NUMALP / 10 / 

DATA CLD / 0.2 / 

DATA NZRCLD / 1 / 

DATA TC / 0.120 / 

DATA NUMTC / 1 / 

DATA CHORD /1.0/ 

DATA MACH / 0.50/ 

DATA NUMACH / 1 / 

C SET RE - 0.0 FOR CALCULATION OF RE BASED ON MACH, ALT AND CHORD 
DATA RE / 0.0/ 

DATA ALT / 10000.0/ 

DATA MCP / 3 / 

DATA ACP / 1 / 

DATA CAMP / 0 / 

C END OF INPUT DATA 
XMEAN = 0.5 
REY = RE 
C 

DO 19 Ml - 1 , NUMACH 
DO 21 N = 1, NZRCLD 
DO 24 N1 = 1, NUMTC 
DO 31 NN = 1, NUMALP 
C 

IF (REY . GT . 0.0) GO TO 88 
CALL ATMCON (ALT , DEN , VIS , WA) 

OMACH = MACH (Ml) 

IF (MACH (Ml) .EQ. 0.0) MACH (Ml) = 0.05 
VEL = MACH (Ml) *WA 
RE = DEN*VEL*CHORD/VIS 
MACH (Ml) = OMACH 
C 

88 CAMS = CAMP 

CALL CLDVSZ ( CAMB, TC(N1) , CLD(N,N1) , Z(N,N1) ) 

C CRE = REYNOLDS NO. FUNCTION FOR OPTIMUM LIFT COEFFICIENT — 

C FROM FIG. 2-48, MCCORMICK 

CRE = -14 . 0*( AL0G10 (RE )-6.0)+24.250 

C DTC = THICKNESS FUNCTION FOR OPTIMUM LIFT COEFFICIENT — 

C FROM FIG. 2-49, MCCORMICK 

DTC = -3.84375 *TC ( N1 ) + 1 

C CLOPT FROM EQ. 2-44, MCCORMICK 
CLOPT = Z(N,N1)*CRE*DTC 
CALL MAXCL ( Z(N,N1), TC(N1) , CLMX ) 

IF (ALPHA(NN) .EQ. 0.0) GO TO 40 

IF (TC(N1) .GE. .20) DCLDAL = . 1321* ( l-TC(Nl) ) / SQRT ( 1-TC (N1 ) **2 ) 

IF (TC(N1) .LT. .20) DCLDAL = . 1216* ( 1-TC (N1 )) /SQRT ( 1-TC ( N1 ) **2 ) 

IF (TC(N1) .LT. .17) DCLDAL = . 1175*( l-TC(Nl) ) /SQRT ( 1-TC ( N1 ) **2) 

IF (TC(N1) .LT. .14) DCLDAL = . 1134 *( 1-TC (N1 )) /SQRT ( 1-TC ( N1 ) **2 ) 

IF (TC(N1) .LT. .11) DCLDAL = . 1043* ( 1-TC ( N1 )) /SQRT ( 1-TC (N1 ) **2 ) 

IF (TC(N1) .LT. .08) DCLDAL = . 1039* ( 1-TC (N1 )) /SQRT ( 1-TC (N1 ) **2 ) 

IF (TC(N1) .LT. .05) DCLDAL = . 1021* ( 1-TC (N1 )) /SQRT ( 1-TC ( N1 ) **2 ) 

DCLDAL = DCLDAL/ SQRT ( 1-MACH(M1 ) **2) 

DELCL = DCLDAL*ALPHA(NN) 

GO TO 50 
40 DELCL = 0.0 
50 CONTINUE 

CL ( NN , N , N1 ) = CLD ( N , N1 ) +DELCL 
C 

C X FROM EQ. 2-45, MCCORMICK X = (CL - CLOPT) /(CLMX - CLOPT) 
X(NN,N,N1) - (CL (NN , N , N1 ) -CLOPT ) / (CLMX-CLOPT) 

CALL CDL ( X(NN , N , N1 ) , Z(N,N1), TC(N1) , DELCD ) 

CALL CDMN ( Z(N,N1), TC(N1), CDMN1 ) 

CALL RECD ( RE, ERE ) 

C CDMIN FROM EQ . 2-46, MCCORMICK 
CDMIN = CDMN1*ERE 
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CD(NN,N r Nl) = CDMIN + DELCD 
IF (NN .GT. 1) GO TO 12 

CALL FDCOOR( 2 , NZRCLD , TC (N1 ) , YU, YL , N , Nl ) 

12 CONTINUE 

IF (MCP .EQ. 0) GO TO 14 

CALL QCCM (CMC4 , YU , YL, N, N, NN, MACH (Ml ) , CMLE , CL, Nl, Z(N,N1) ) 
14 CONTINUE 
31 CONTINUE 

IF (AGP .EQ. 0) GO TO 24 

CALL FDCR ( Z , NZRCLD , TC ( Nl ) , XU, XL , YU, YL , LERAD , NUMACS , N , Nl ) 

CALL AREA( XU, YU, XL , YL , AT, XREF , YREF , IMAJ , IMIN , N , Nl , CHORD ) 

24 CONTINUE 
21 CONTINUE 


WRITE (6,260) MACH (Ml ) 

260 FORMAT ( * 1 ' , T4 3 , * * LIMITATIONS FOR MACH NO. = ',F6.4,' *'//) 

IF ( RE .LT. 4.0E05) WRITE(6,261) RE 

261 FORMAT(T5, 'REYNOLDS NO. = ',E12.6,' IS LESS THAN RE (MIN ) 

&= 0.400E 06') 

IF ( RE .GT. 0.10E08) WRITE(6,262) RE 

262 FORMAT(T5, 'REYNOLDS NO. = ',E12.6,' IS GREATER THAN RE (MAX) 

&= 0.100E 08' ) 

DO 263 I = 1, NZRCLD 
DO 264 II - 1 , NUMTC 

IF (Z ( I , II ) .GT. 0.09) WRITE (6 , 265 ) Z(I,I1), CLD(I,I1), TC(I1) 

265 FORMAT (T 5, 'MAX. CAMBER = ',F10.6,' IS GREATER THAN Y/C(MAX) 

Sr= 0.090 FOR CLD = * ,F10.6, 'AND T/C = ’,F10.6) 

264 CONTINUE 

263 CONTINUE 

WRITE (6,271) 

271 FORMAT ( * - ' , T53 , ' * END LIMITATIONS *’///) 

WRITE(6, 999) 

999 FORMAT ( ' 1 ' ) 

DO 11 L = 1, NZRCLD 
NTC = NUMTC 

DO 111 LI = 1, NUMTC, 2 
IF ( ACP .EQ. 0) GO TO 5 
IF (NUMTC .EQ. 1) GO TO 800 
IF (CAMP .EQ. 1) GO TO 41 
WRITE(6, 15) 

15 FORMAT ( ’ - ' , 9X , * * NACA 4-DIGIT SERIES AIRFOIL COORDINATES 
&18X,'* NACA 4-DIGIT SERIES AIRFOIL COORDINATES *'///) 

GO TO 13 

41 IZ = Z ( L , LI ) *101 

IZP = Z ( L , Ll+1 ) *101 
ITC = TC ( LI ) *101 
ITCP = TC ( Ll+1 ) *101 

IF ( ITCP .LT. 10) WRITE (6,43) IZ , ITC , IZP , ITCP 
IF ( ITCP .GE. 10) WRITE(6 , 42) IZ , ITC , IZP , ITCP 

42 FORMAT ( ' 1 ' , 2 ( 1 4X , ' * NACA ' , II , ’ 5 ' , 12 , ' AIRFOIL COORDINATES *’,9X)) 

43 FORMAT ( * 1 ' , 2(14X, ’ * NACA ’ , 12 , ' 50 ' , II , ' AIRFOIL COORDINATES *\9X)) 
13 CONTINUE 

WRITE(6 , 25) CLD ( L , LI ) , CLD(L,L1+1) 

25 FORMAT ( ' - ' , T30 , * CLD = ' , F10 . 6 , T92 , • CLD = ’,F10.6/) 

WRITE (6,35) TC(L1), TC(L1+1) 

35 FORMAT ( T25, ’ (T/C) MAX = ’ , F10 . 6 ,T87 , ’ (T/C)MAX = ’,F10.6/) 

WRITE (6,36) LERAD(L, LI) , LERAD ( L , Ll+1 ) 

36 FORMAT (T2 8, 'LERAD = ’ , F10 . 6 , T90 , ’ LERAD = ’,F10.6/) 

WRITE (6, 45) XMEAN, XMEAN 

45 FORMAT (T 9, 'X/C VALUE OF MAX. CAMBER = ' ,F10.6,T71, 

&'X/C VALUE OF MAX. CAMBER = ’ ,F10.6/) 

WRITE (6,55) Z(L , LI) , Z(L,L1+1) 

55 F0RMAT(T9, 'Y/C VALUE OF MAX. CAMBER - ’,F10.6,T71, 

&’Y/C VALUE OF MAX. CAMBER = ’,F10.6//) 

WRITE (6,65) 

65 FORMAT ( T13 , 'XUPPER' ,T25, 'YUPPER' ,T37 , 'XLOWER' ,T49, ' Y LOWER ' , 

&T76, 'XUPPER' , T88 , 'YUPPER' ,T100, 'XLOWER' ,T112, ' Y LOWER ' / ) 

DO 66 M = 1, NUMACS 

WRITE (6, 75) XU (L,L1,M) , YU ( L , LI , M) , XL (L,L1,M) ,YL(L,L1,M) , 

&XU (L, L1+1,M) , YU ( L , Ll+1 , M) , XL( L , Ll+1 , M) , YL ( L , Ll+1 ,M) 

75 FORMAT (2(9X,F10.6, 2X, F10 . 6 , 2X, F10.6,2X,F10.6, 8X) ) 

66 CONTINUE 
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GO TO 99 

IF ( ACP .EQ. 0) GO TO 900 
K1 = NUMTC 

IF (CAMP .EQ. 1) GO TO 141 
WRITE (6, 115) 

115 FORMAT ( ' - ' , 9X , ' * NACA 4-DIGIT SERIES AIRFOIL COORDINATES *'///) 
GO TO 113 

141 IZ = Z(L,K1)*101 

ITC = TC (K1 ) *101 

IF ( ITC .GE. 10) WRITE (6,142) IZ, ITC 
IF ( ITC .LT. 10) WRITE (6,114) IZ,ITC 

142 FORMAT ( ' 1 ' , 14X, ' * NACA ' , II , ' 5 ' , 12 , ’ AIRFOIL COORDINATES *') 

114 FORMAT ( ' 1 ' , 14X, ’ * NACA ’ , II , ' 50 ' , II , ' AIRFOIL COORDINATES *') 
113 CONTINUE 

WRITE(6, 999) 

WRITE (6 , 125 ) CLD ( L , K1 ) 

125 FORMAT ( ' - ' , T30 , ' CLD = ',F10.6/) 

WRITE ( 6 , 135 ) TC(K1) 

135 F0RMAT(T25, * (T/C)MAX = ' ,F10.6/) 

WRITE ( 6 , 136 ) LERAD ( L , K1 ) 

136 FORMAT (T2 8, ’ LERAD = ',F10.6/) 

WRITE (6,145) XMEAN 

145 FORMAT ( T9, 'X/C VALUE OF MAX. CAMBER = ’,F10.6/) 

WRITE (6,155) Z ( L , Kl) 

155 FORMAT ( T9, 'Y/C VALUE OF MAX. CAMBER = ',F10.6//) 

WRITE(6, 165) 

165 FORMAT (T13, 'XUPPER' ,T25, 'YUPPER' ,T37, ' XLOWER ' ,T49, ' YLOWER ' /) 

C 

DO 166 M = 1, NUMACS 

WRITE (6, 17 5) XU(L,K1,M) ,YU(L,K1,M) ,XL(L,K1,M) ,YL(L,K1,M) 

175 FORMAT (9X,F10.6,2X,F10.6,2X,F10.6,2X,F10.6) 

166 CONTINUE 
C 

GO TO 900 

5 IF (NUMTC .EQ. 1) GO TO 900 
99 WRITE ( 6 , 100 ) 

100 FORMAT ( ' - ' , 1 IX , 1 * NACA 4-DIGIT SERIES AIRFOIL DATA BANK 
&20X, * * NACA 4-DIGIT SERIES AIRFOIL DATA BANK * * ) 

IF (CAMP .EQ. 0) GO TO 104 

IZ = Z ( L , LI ) *101 

IZP = Z(L,L1+1)*101 

ITC = TC ( LI ) *101 

ITCP = TC ( Ll+1 ) *101 

IF ( ITCP .LT. 10) WRITE (6,108) IZ, ITC, IZP, ITCP 
IF ( ITCP .GE. 10) WRITE (6,105) IZ , ITC , IZP , ITCP 
105 FORMAT ( 2 ( 25X, ’ * NACA ' , II, ' 5 ' , 12, ' *',14X)) 

108 FORMAT ( 2 ( 25X , * * NACA ' , II , ’ 50 ' , II , ' *' 14X)) 

104 CONTINUE 

WRITE ( 6 , 200 ) CLD ( L , LI ) , CLD(L,L1+1) 

200 FORMAT (///,T25, ’CLD = ' , F10 .6 ,T87 , 'CLD = ’,F10.6/) 

WRITE ( 6 , 300 ) TC(L1), TC(L1+1) 

300 FORMAT (T20 ,' (T/C )MAX » ’ , F10 . 6 , T82 , ' ( T/C )MAX = *,F10.6/) 

WRITE ( 6 , 301 ) MACH (Ml), MACH (Ml ) 

301 FORMAT (T20, 'MACH NO. = ’ , F10 . 6 , T82 , ' MACH NO . = ’,F10.6/) 

WRITE (6,400) RE, RE 

400 FORMAT (T16, 'REYNOLDS NO. = ' , E14 . 6 , T7 9 REYNOLDS NO. « 

& , E14 . 6/ ) 

IF (MCP .EQ. 0) GO TO 101 

IF (MCP .EQ. 2) GO TO 101 

WRITE ( 6 , 500) CMC4 ( L , LI ) , CMC4(L,L1+1) 

500 FORMAT (T2 4, 'CMC4 = ’ ,F10.6,T86, ' CMC 4 = ’ ,F10.6//) 

101 CONTINUE 

IF (MCP .EQ. 2) GO TO 501 

IF (MCP .EQ. 3) GO TO 501 

WRITE ( 6 , 600 ) 

600 FORMAT ( T20 , 'ALPHA' ,T33, ’CL’ ,T45, ' CD ' , T83 , 'ALPHA' ,T96, 

& ' CL ' , T108 , ' CD ' /) 

GO TO 107 

501 WRITE ( 6 , 601 ) 

601 FORMAT (T13, 'ALPHA' ,T26, 'CL' ,T38, 'CD' ,T49, ' CMLE ' ,T76, 

& ' ALPHA ’ ,T89, 'CL' ,T101, 'CD' ,T112, ' CMLE ' / ) 

107 CONTINUE 
C 

DO 10 J = 1, NUMALP 
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IF (MCP .EQ. 2) GO TO 106 

IF (MCP .EQ. 3) GO TO 106 

WRITE (6 ,802) ALPHA( J ) , CL ( J , L , LI) , CD ( J , L , LI ) , ALPHA( J ) , 

&CL ( J , L , Ll+1 ) , CD ( J , L , Ll+1 ) 

802 FORMAT (2(15X,F10.6,2X,F10.6,2X,F10.6,15X)) 

GO TO 10 

106 WRITE ( 6 , 801 ) ALPHA( J ) , CL ( J , L , LI ) , CD ( J , L , LI ) , CMLE ( J , L , LI) , 

&ALPHA ( J ) ,CL(J, L, Ll+1) , CD ( J , L , Ll+1 ) , CMLE ( J , L , Ll+1 ) 

801 FORMAT (2(8X,F10.6,2X,F10.6,2X,F10.6,2X,F10.6,9X) ) 

10 CONTINUE 

NTC = NTC - 2 
IF (NTC .EQ. 0) GO TO 11 

IF (NTC .EQ. 1) GO TO 800 

111 CONTINUE 

900 K1 = NUMTC 

WRITE(6, 901) 

901 FORMAT ( ' - ' , 11X, ' * NACA 4-DIGIT SERIES AIRFOIL DATA BANK * ’ ) 

IF (CAMP .EQ. 0) GO TO 902 
IZ = Z(L,K1)*101 
ITC = TC(K1)*101 

IF ( ITC .LT. 10) WRITE ( 6 , 903 ) IZ,ITC 
IF ( ITC .GE. 10) WRITE ( 6 , 920 ) IZ,ITC 

903 FORMAT(25X, ' * NACA ' , 1 1 , ' 50 ' , II , ' *’) 

920 FORMAT (25X, ' * NACA ’ , II , ' 5 ’ , 12 , ' *’) 

902 CONTINUE 

WRITE (6,904) CLD(L,K1) 

904 FORMAT (///, T25 , 'CLD = ’,F10.6/) 

WRITE (6, 906) TC(K1) 

906 FORMAT ( T20, ’ (T/C) MAX = ’,F10.6/) 

WRITE ( 6 , 907 ) MACH(Ml) 

907 FORMAT (T20, ’MACH NO. = *,F10.6/) 

WRITE (6, 910) RE 

910 FORMAT (T16, ’REYNOLDS NO. = ’,EX4.6/) 

WRITE ( 6 , 708 ) AT, XREF , YREF 

708 FORMAT ( T24 , ’AREA = ',F10.6,’ IN**2 ’ , / , T19 , ’ XCENTRIOD = ' 

, , F10 . 6 , ’ IN ’ , / , T19 , 1 YCENTRIOD = ',F10.6,' IN',/) 

WRITE (6,709) IMAJ , IMIN 

709 FORMAT(T22 , ’ IMAJOR = ',F10.3,' IN**4 ’ , / , T22 , ’ IMINOR = ’,F10.7,’ 

*IN**4’,/) 

IF (MCP .EQ. 0) GO TO 908 
IF (MCP .EQ. 2) GO TO 908 
WRITE ( 6 , 909 ) CMC4(L,K1) 

909 FORMAT ( T24, ’CMC4 = ’,F10.6//) 

908 CONTINUE 

IF (MCP .EQ. 2) GO TO 911 

IF (MCP .EQ. 3) GO TO 911 

WRITE(6, 912) 

912 FORMAT (T20, ’ALPHA’ ,T33, ’ CL ’ , T45 , ’ CD ’/ ) 

GO TO 913 
911 WRITE (6,914) 

914 FORMAT (T13, ’ALPHA’ ,T26, ’ CL ’ , T38 , ’ CD ’ , T4 9 , ’CMLE’/) 

913 CONTINUE 
C 

DO 919 J = 1, NUMALP 
IF (MCP .EQ. 2) GO TO 916 

IF (MCP .EQ. 3) GO TO 916 

WRITE (6, 917) ALPHA(J) ,CL(J,L,K1) ,CD( J,L,K1) 

917 FORMAT (15X,F10.6, 2X, F10.6, 2X, F10 . 6) 

GO TO 915 

916 WRITE(6, 918) ALPHA ( J ), CL ( J , L , K1 ), CD ( J , L , Kl) , CMLE (J , L , Kl) 

918 FORMAT (8X,F10.6,2X,F10.6,2X,F10.6,2X,F10.6) 

915 CONTINUE 

919 CONTINUE 

11 CONTINUE 
19 CONTINUE 

WRITE(6, 999) 

STOP 

END 


SUBROUTINE ATMCON FINDS PARAMETERS AT GIVEN ALTITUDE 
SUBROUTINE ATMCON ( ALT , DEN , V X S , WA ) 

ALT = ALT*. 3048 
SLOPE = -.0065 
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TEMP = 28 8 . 16+SL0PE*ALT 
EXP = 2.718281828 
TSEA = 288.16 
PSEA = 101325. 

PRES1 = 22700. 

GRAV = 9.82 

r = 2 8 8 

POWER = GRAV/ (SLOPE*R) 

PRES = PSEA* ( 1/ (TEMP/TSEA) )**P0WER 
IF (ALT .LE. 11000.) GO TO 4 

PRES = PRES 1 *EXP** ( -GRAV/ (R*216.66) *( ALT- 110 00 . ) ) 

TEMP = 216.66 

4 WA = SQRT ( 1 . 4*R*TEMP ) / . 3048 

TEMP = (TEMP-273 . 15) *9/5+491.67 

VIS = .35* (TEMP/492 . )**1.5*(690/ (TEMP+198 .))*. 000001 
PRES = PRES*2116 . 2/PSEA 
DEN = PRES/ (1718. *TEMP ) 

ALT = ALT/. 3048 
RETURN 
END 
C 

C SUBROUTINE CLDVSZ CALCULATES DESIGN LIFT COEFFICIENT IF 
C CAMBER IS INPUT OR VICE VERSA 

SUBROUTINE CLDVSZ( CAMP, TC, CLD, Z ) 

DIMENSION CLDATA (5,4) , ZDATA (5,4) ,ZI(4) , CLDI ( 4 ) , TCI ( 5 ) , 
&CLD02 ( 5 ) , CLD04 ( 5 ) , CLD06 ( 5 ) , CLD08 ( 5 ) , Z2 ( 5 ) , Z4 ( 5 ) , Z6 ( 5 ) , 

&Z8 ( 5) , ZADATA( 4 ) ,CLDTA(4) 

EQUIVALENCE (CLDATA( 1,1) , CLD02 ) 

EQUIVALENCE (CLDATA ( 1,2), CLD04 ) 

EQUIVALENCE (CLDATA ( 1,3), CLD06 ) 

EQUIVALENCE ( CLDATA ( 1 , 4 ) , CLD08 ) 

C 

EQUIVALENCE (ZDATAd, 1) , Z2 ) 

EQUIVALENCE ( ZD ATA(1, 2) , Z4 ) 

EQUIVALENCE(ZDATA(1, 3) , Z6 ) 

EQUIVALENCE ( ZDATA( 1 , 4) , Z8 ) 

C 

DATA ZI / 0.02,0.04,0.06,0.08 / 

DATA CLDI / 0.2, 0.4, 0.6, 0.8 / 

DATA TCI / 0.04,0.06,0.09,0.12,0.18 / 

DATA CLD02 / . 225537 235576 ,. 246819 ,. 25607 9 ,. 265394 / 
DATA CLD04 / . 455984 4 8389 ,. 547 405 ,. 52539 ,. 4 89006 / 

DATA CLD06 / . 67 2912 ,. 707067 7 86416 ,. 691206 6380 / 

DATA CLD08 / . 892327 899246 ,. 906358 ,. 930514 843705 / 

C 

DATA Z2 / .0195, .0186, .0175, .0168, .0160 / 

DATA Z4 / .0370, .0360, .0350, .0340, .0330 / 

DATA Z6 / .0550, .0540, .0530, .0520, .0530 / 

DATA Z8 / .0730, .0720, .0710, .0700, .0760 / 

C 

IF (CAMP .EQ. 1) GO TO 10 
DO 20 I * 1,4 

CALL LINEAR ( 5 , TCI , ZDATA ( 1 , I ) , TC , ZADATA ( I ) ) 

20 CONTINUE 

CALL LINEAR(4, CLDI, ZADATA, CLD, Z) 

GO TO 30 
10 CONTINUE 

DO 40 J = 1,4 

CALL LINEAR (5, TCI, CLDATA (1, J) , TC, CLDTA( J ) ) 

40 CONTINUE 

CALL LI NEAR ( 4 , ZI , CLDTA , Z , CLD ) 

30 RETURN 
END 
C 

C SUBROUTINE MAXCL ESTIMATES CL (MAX) TO AID IN FINDING 
C THE DRAG COEFFICIENT INCREASE DUE TO THICKNESS 
SUBROUTINE MAXCL (Z, TC, CLMX ) 

REAL LDATA(7 , 5) , LADATA( 5 ) , ZI ( 5 ) , TCI ( 7 ) 

DIMENSION CLMOO ( 7 ) , CLM02(7), CLM04(7), CLM06(7), CLM08(7) 
EQUIVALENCE ( LDATA( 1 , 1 ) , CLMOO) 

EQUIVALENCE ( LDATA( 1 , 2 ) , CLM02 ) 

EQUIVALENCE ( LDATA( 1 , 3 ) , CLM04 ) 

EQUIVALENCE ( LDATA( 1 , 4 ) , CLM06) 

EQUIVALENCE ( LDATA( 1,5), CLM08 ) 
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C 

DATA 21 / 0.0,0.02,0.04,0.06,0.08 / 

DATA TCI / 0.03, .06, .09, .12, .15, .18, .21 / 

DATA CLM00 / 1.4, 1.3, 1.4, 1.4, 1.4, 1.4, 1.4 / 

DATA CLM02 / 1.5, 1.4, 1.5, 1.5, 1.4, 1.4, 1.3 / 

DATA CLM04 / 1.65,1.6,1.7,1.7,1.65,1.6,1.55 / 

DATA CLM06 / 1.8,1.9,1.9,1.8,1.7,1.8,1.65 / 

DATA CLM08 / 2. 0,2. 1,2. 1,2. 0,1. 9, 1.8, 1.7 / 

C 

DO 130 1A - 1, 5 

CALL LINEAR( 7, TCI, LDATA(1, IA) , TC , LADATA(IA) ) 
130 CONTINUE 

CALL L INEAR ( 5, Z1 , LADATA, Z, CLMX ) 

RETURN 

END 


SUBROUTINE CDL FINDS THE EFFECT OF LIFT COEFFICIENT ON DRAG 
COEFFICIENT — FROM FIG. 2-52, MCCORMICK (PLUS INCORPORATION OF T/C(MAX)) 
SUBROUTINE CDL( X, Z, TC, DELCD ) 

DIMENSION DCD (17,4,5), DECD ( 5 ) , DLCD (4) ,ZP(4) ,TCP(5) ,XP(17) , 

&X2 (9) ,X4(11),X6(12),X8(17) 

DIMENSION DCD204(9) , DCD206 ( 9 ) ,DCD209(9) ,DCD212(9) ,DCD218(9) , 

&DCD404 ( 11 ) , DCD406 ( 11 ) ,DCD409(11) ,DCD412(11) ,DCD418(11) , 

&DCD604 ( 12) , DCD606 ( 12 ) ,DCD609(12) ,DCD612(12) ,DCD618(12) , 

&DCD804 ( 17 ) , DCD806 ( 17 ) ,DCD809(17) ,DCD812(17) ,DCD818(17) 

EQUIVALENCE (DCD(1,1,1), DCD204) 

EQUIVALENCE (DCD(1,1,2), DCD206) 

EQUIVALENCE (DCD(1,1,3), DCD209) 

EQUIVALENCE (DCD(1,1,4), DCD212) 

EQUIVALENCE (DCD(1,1,5), DCD218) 

EQUIVALENCE (DCD(1,2,1), DCD404) 

EQUIVALENCE (DCD(1,2,2), DCD406) 

EQUIVALENCE (DCD(1,2,3), DCD409) 

EQUIVALENCE (DCD(1,2,4), DCD412) 

EQUIVALENCE (DCD(1,2,5), DCD418) 

EQUIVALENCE (DCD(1,3,1), DCD604) 

EQUIVALENCE (DCD(1,3,2), DCD606) 

EQUIVALENCE (DCD(1,3,3), DCD609) 

EQUIVALENCE (DCD(1,3,4), DCD612) 

EQUIVALENCE (DCD(1,3,5), DCD618) 

EQUIVALENCE (DCD(1,4,1), DCD804) 

EQUIVALENCE (DCD(1,4,2), DCD806) 

EQUIVALENCE (DCD(1,4,3), DCD809) 

EQUIVALENCE (DCD(1,4,4), DCD812) 

EQUIVALENCE (DCD(1,4,5), DCD818) 


DATA ZP / 0.02,0.04,0.06,0.08 / 

DATA TCP / 0.04, .06, .09, .12, .18 / 

DATA X2 / -0.3, -.2, -.1,0. , .1, .2, .3, .4, .5 / 

DATA X4 / -0.5, -.4, -.3, -.2, -.1,0.,.!, .2, .3, .4, .5 / 

DATA X6 / -0.7, -.6, -.5, -.4, -.3, -.2, -.1,0.,.!, .2, .3, .4 / 

DATA X8 / -1.1, -1.0, -.9, -.8, -.7, -.6, -.5, -.4, -.3, -.2, -.1,0., 

01. . 2. .3, .4, .5 / 

DATA DCD204 / . 00065 ,. 0003 , 0 ., 0 .,. 0003 ,. 00065 ,. 0011 , 

6. 0017. . 0025 / 

DATA DCD206 / . 0009 ,. 00035 ,. 0001 , 0 .,. 00025 ,. 0008 ,. 0018 , 

6 .0032. . 0046 / 

DATA DCD209 / .0014 , .0006 , .0002, .0002 ,. 0006, .0012, .0026 , 

6.0042. . 0058 / 

DATA DCD212 / . 0014 ,. 0008 ,. 0003 ,. 0002 ,. 0001 , 0 .,. 0015 , 

6 . 0036 . . 0058 / 

DATA DCD218 / . 0021 ,. 0018 ,. 0013 , 0 .,. 001 ,. 0015 ,. 0019 , 

6.0023. . 0041 / 

DATA DCD404 / . 0008 ,. 0004 5 ,. 0002 ,. 0001 , 0 .,. 00015 ,. 0004 ,. 0008 , 

6 . 0015 . . 0022. .0030 / 
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DATA DCD406 / . 0016 0013 r . 001 ,. 00065 ,. 0002 , 0 . f . 0006 0017 , 

6 . 003 . . 0044. .0059 / 

DATA DCD409 / , 001 ,. 0007 0005 ,. 0002 f 0 0 . , 0 0008 , 

St. 0021, .0036, .0052 / 

DATA DCD412 / . 0012 ,. 0007 ,. 0004 0002 ,. 0005 , 0 0001 0003 , 

5.. 0022, .0040, .0066 / 

DATA DCD418 / . 0042 ,. 0037 ,. 0032 ,. 0026 ,. 002 0008 0001 0001 , 

6. 0018. . 0032. .0051 / 

DATA DCD604 / . 0013 ,. 0011 001 ,. 0011 ,. 0013 0016 ,. 0021 ,. 0028 , 

6. 0037. . 0047. .0057. .0067 / ' 

DATA DCD606 / . 0015 ,. 0014 ,. 00135 ,. 0013 ,. 0013 0013 ,. 00135 0018 , 

St. 0027, .0042, .0062, .008 / 

DATA DCD609 / . 0005 ,. 0004 ,. 00045 ,. 0006 ,. 0007 0003 ,. 0003 0009 , 

5.. 001, .0018, .0032, .005 / 

DATA DCD612 / . 0020 ,. 0018 ,. 0016 , . 0013 ,. 001 0008 ,. 0005 00045 , 

5.. 001, .0028, .0039, .0053 / 

DATA DCD618 / . 0021 , .0019 ,. 0015, .0011, .0009, .001 , .0015, . 0012 , 

S. .0015, .0020, .0040, .0054 / 

DATA DCD804 / . 0030 0029 ,. 0028 ,. 0027 ,. 0027 5 ,. 003 , . 0034 ,. 004 , 

5.. 004 9, .0057, .0066, .007 4, .0082, .009, .0098, .0106, .0113 / 

DATA DCD806 / . 0025 ,. 0023 ,. 0024 ,. 0028 ,. 0032 ,. 0034 ,. 003 ,. 0025 , 

5.. 0024, .003, .0045, .006, .0075, .009, .0105, .012, .0135 / 

DATA DCD809 / . 0005 ,. 0006 ,. 0007 ,. 0008 ,. 001 , . 0012 ,. 0016 ,. 0019 , 

6. 0023. . 0027. .0031. .0035. .0038. .0041. .0044. .0047. .0049 / 

DATA DCD812 / . 0013 ,. 0012 ,. 001 , .0008 ,. 0007 0006 ,. 0005 00045 , 

5.. 0004, .00035, .0004, .0007, .0023, .0038, .0041, .0044, .0047 / 

DATA DCD818 / . 0005 ,. 0004 ,. 0003 ,. 0002 0001 , 0 0 ., 0 .,. 0001 , 

6. 0002. . 00025. .0006. .0012. .003. .0035. .0038. .0047 / 

DO 102 I = 1,4 
DO 103 J = 1,5 

IF (I .EQ. 1) CALL LINEAR ( 9 , X2 , DCD ( 1 , I , J ) , X , DECD ( J ) ) 

IF (I .EQ. 2) CALL LINEAR ( 11 , X4 , DCD ( 1 , I , J ) , X, DECD ( J ) ) 

IF (I .EQ. 3) CALL LINEAR ( 12 , X6 , DCD ( 1 , I , J ) , X, DECD ( J ) ) 

IF (I .EQ. 4) CALL LINEAR ( 17 , X8 , DCD ( 1 , I , J) , X, DECD ( J ) ) 

103 CONTINUE 

CALL LINEAR( 5, TCP, DECD, TC, DLCD(I) ) 

102 CONTINUE 

CALL LINEAR( 4, ZP, DLCD , Z, DELCD ) 

RETURN 

END 


SUBROUTINE CDMN FINDS THE MINIMUM DRAG COEFFICIENT 
FOR 6E05 < RE < 5E06 FROM FIG. 2-53, MCCORMICK 
SUBROUTINE CDMN ( Z, TC, CDMN1 ) 

REAL DMDATA( 12,6), MNDATA(6) , Z3(6), TC2(12) 

DIMENSION CDMOO ( 12 ) , CDM02(12), CDM04(12), CDM06Q2), 

St CDM08 ( 12 ) , CDM10 ( 12) , CDM12(12) 

EQUIVALENCE (DMDATA( 1,1), CDMOO) 

EQUIVALENCE (DMDATA( 1 , 2 ) , CDM02 ) 

EQUIVALENCE (DMDATA( 1,3), CDM04 ) 

EQUIVALENCE ( DMDATA (1,4) , CDM06 ) 

EQUIVALENCE ( DMDATA ( 1 , 5 ) , CDM08 ) 

EQUIVALENCE (DMDATA ( 1 , 6 ) , CDM10) 

DATA Z3 / 0.0, .02, .04, .06, .08, .10 / 

DATA TC2 / .02, .04, .06, .08, .10, .12, .14, .16, .18, .20, .22, .24 / 
DATA CDMOO / . 00465 ,. 0047 8 ,. 0049 ,. 00515 ,. 0055 ,. 00565 ,. 0057 8 , 

6. 0064. . 0069, .0074, .00765, .00865 / 

DATA CDM02 / . 005 0051 ,. 0054 ,. 0058 ,. 0062 ,. 0067 0069 , 

St. 0076,. 0083,. 0086,. 0089,. 0092 / 

DATA CDM04 / . 0056 ,. 00569 ,. 00545 00661 ,. 007 1 ,. 007 85 ,. 0081 , 

6. 0084. . 0088. .009. .0092. .00953 / 

DATA CDM06 / . 004 8 , . 0052 , . 006 , . 0065 , . 007 3 , . 0081 , . 0083 , 

6.0084. . 0091. .0094. .0097. .0103 / 

DATA CDM08 / . 0046 ,. 004 9 0057 ,. 0070 ,. 007 93 00851 0089 , 

6. 0092. . 00973. .0103. .0107. .0111 / 

DATA CDM10 / . 0085 ,. 009 ,. 00903 ,. 00948 ,. 00952 ,. 010 ,. 01003 , 

6. 01053. . 01103. .01107. .01203. .01253 / 

DO 170 IE = 1,6 
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CALL L INEAR ( 12, TC2 , DMDATA( 1 , IE ) , TC, MNDATA(IE) ) 

170 CONTINUE 

CALL L INEAR ( 6, Z3 , MNDATA, Z, CDMN1 ) 

RETURN 

END 

C 

c 

C SUBROUTINE RECD FINDS THE EFFECT OF REYNOLDS NO. ON 
C MINIMUM DRAG COEFFICIENT — FROM FIG. 2-54, MCCORMICK 
SUBROUTINE RECD ( RE, ERE ) 

DIMENSION R(9) , ER(9) 

DATA R/l.E 5, 1.5E 5, 2.E 5, 3.E 5, 4.E 5, 5.E 5, 6.E 5, 

&6.E 6, 8.E 6 / 

DATA ER / 3. 8, 2. 8, 2. 2, 1.6, 1.3, 1.1, 1.0, 1.0, .95 / 

C 

CALL LINEAR ( 9, R, ER, RE, ERE ) 

RETURN 

END 

C 

C 

C 

C SUBROUTINE FDCOOR FINDS THE Y-DIMENSIONS OF A NACA 4-DIGIT AIRFOIL SECTION 
C IN ORDER TO CALCULATE THE MOMENT COEFFICIENT — 

C — FROM EQS . 6. 1-6. 4, ABBOTT & VONDOENHOFF 

SUBROUTINE FDCOOR( YMEAN , NZRCLD , TCMAX, YU , YL , 10 , N1 ) 

REAL X2(14) ,YC(14) , YMEAN ( NZRCLD ) , SLOPE ( 14 ) , THICK ( 14 ) , 

&YU (10,10,14) ,YL(10,1Q,14) 

DATA X2 /0. , .025, .05, .1, .2, .3, .4, .5, .6, .7, .8, .9, .95, 1.0 / 

XMEAN =0.5 

C 

NUMPTS =14 

DO 2 I = 1, NUMPTS 

IF (X2 ( I ) .GT. XMEAN) GO TO 1 

YC ( I ) =YMEAN ( 10 ) /XMEAN**2 * (2*XMEAN*X2 ( I ) -X2 ( I ) **2 ) 

GO TO 2 

1 YC ( I ) =YMEAN ( 10 ) / ( 1 -XMEAN ) **2* ( 1~2*XMEAN+2*XMEAN*X2 ( I ) -X2 ( I ) **2 ) 

2 CONTINUE 

NUM = NUMPTS-1 
DO 6 JJ = 2, NUM 

SLOPE ( J J ) = ( YC(JJ+1)-YC(JJ-1) )/( X2( JJ+D-X2 ( JJ-1) ) 

6 CONTINUE 

SLOPE ( 1 ) = ( YC ( 2 ) -YC ( 1 ) )/( X2(2)~X2(1) ) 

SLOPE (NUMPTS) = ( YC ( NUMPTS )-YC( NUM) )/( X2 (NUMPTS) -X2 ( NUM) ) 

DO 3 MM = 1, NUMPTS 

THICK (MM) =( TCMAX/. 2) *(SQRT(X2(MM) ) * . 2969-X2 (MM) * , 126 
&-X2(MM)**2*.3516+X2(MM) **3* . 2843-X2 (MM) **4*.1015) 

THETA = ATAN(SLOPE (MM) ) 

YU ( 10 , N1 , MM) =YC(MM)+THICK(MM) *COS( THETA) 

YL ( 10 , N1 , MM) =YC (MM) -THICK (MM) *C0S( THETA) 

3 CONTINUE 
RETURN 
END 

C SUBROUTINE QCCM FINDS THE MOMENT COEFFICIENT ABOUT 

C THE QUARTER-CHORD USING THE METHOD ON PAGE 72, ABBOTT & VONDOENHOFF 
SUBROUTINE QCCM( CMC 4 , YU, YL, IG, N, NN, MACH, CMLE , CL, Nl, Z ) 

REAL MACH 

DIMENSION B1 ( 14 ) , X3 ( 14 ) , CMC 4 (10,10) , CMLE (10,10,10) ,CL(10,10,10) , 

&YU (10,10,14) ,YL(10,10,14) 

DATA X3 / 0.0, .025, .05, .1, .2, .3, .4, .5, .6, .7, .8, .9, .95,1.0 / 

DATA B1 / -.119, -.156, -.104, -.124, -.074, -.009, .045, .101, 

&. 170, .273, .477, .786,3.026,-4.289 / 

C 

CMC4 ( IG, Nl) = 0.0 
DO 23 IGG =1,14 

CMC4 ( IG, Nl ) = CMC 4 (IG,N1)+B1( IGG) * (YU ( IG , Nl , IGG) +YL ( IG, Nl , IGG) ) 

23 CONTIHTTF 

CMC4 ( IG , Nl ) = - (CMC 4 (IG,Nl)-( .25*Z+.005) ) 

CMLE (NN , IG, Nl) = CMC 4 ( IG , Nl) - . 25*CL (NN , N , Nl ) 

CMLE (NN , IG, Nl) = CMLE (NN , IG, Nl) /SQRT ( 1-MACH**2 ) 

CMC4 ( IG , Nl) = CMC 4 (IG,N1)/SQRT( l-MACH^^Z ) 

RETURN 

END 

C 

C 


no 



no o n o o onn 


C SUBROUTINE FDCR FINDS THE DIMENSIONS OF A NACA 

C 4-DIGIT AIRFOIL SECTION — FROM EQS . 6. 1-6.4, ABBOTT & VONDOENHOFF 

SUBROUTINE FDCR ( YMEAN , N2RCLD , TCMAX , XU , XL , YU , YL , LERAD , 

&NUMACS, 10, Nl) 

REAL LERAD (10,10), X2 (53) ,YC(53) , YMEAN ( NZRCLD) ,SLOPE(53) , 

&XU( 10,10,53) ,XL(10, 10,53) , YU( 10 , 10 , 53 ) ,YL(10, 10, 53) 

DATA X2 / 0. , .01, .02, .03, .04, .05, .06, .07, .08, .09, . 1 , .125, 

&. 15, .17 5, .2, .225, .25, .275, .3, .325, .35, .375, .4, .425, .45, .475, .5, 
&. 525, .55, .57 5, .6, .625, .65, .67 5, .7, .7 25, .7 5, .77 5, .8, .825, .85, 

&. 875, .9, .91, .92, .93, .94, .95, .96, .97, .98, .99,1.0 / 

XMEAN =0.5 
C 

NUMACS =53 

DO 7 I = 1, NUMACS 

IF (X2 ( I ) .GT. XMEAN) GO TO 8 

YC ( I ) = YMEAN ( 10 ) /XMEAN**2* ( 2*XMEAN*X2 (I)-X2(I)**2) 

GO TO 9 

8 YC ( I ) = YMEAN ( 10 ) / ( 1 -XMEAN ) **2* ( 1-2*XMEAN+2*XMEAN*X2 ( I ) -X2 ( I ) **2 ) 

9 CONTINUE 
7 CONTINUE 

NUM = NUMACS- 1 
DO 16 JJ = 2, NUM 

SLOPE ( JJ) = ( YC(JJ+1) -YC ( J J-l ) )/( X2( J J+l ) -X2 ( J J-l ) ) 

16 CONTINUE 

SLOPE ( 1 ) = ( YC ( 2 ) -YC ( 1) )/( X2(2)-X2(l) ) 

SLOPE (NUMACS) = ( YC ( NUMACS )-YC( NUM) )/( X2 (NUMACS) -X2 (NUM) ) 

DO 17 MM = 1, NUMACS 

THICK = ( TCMAX/ . 2 ) * ( SQRT (X2 (MM) ) * . 2969-X2 (MM) * . 126 
&-X2 (MM) **2* . 3516+X2 (MM) **3* . 2843-X2 (MM) **4*. 1015) 

IF (MM .EQ. NUMACS) THICK = 0.0 
THETA = ATAN (SLOPE (MM) ) 

XU ( I 0 , N 1 , MM ) =X2 (MM) -THICK*SIN (THETA) 

YU ( 10 , Nl , MM) =YC (MM) +THICK*COS (THETA) 

XL ( 10 , Nl , MM) =X2 (MM) +THICK*SIN( THETA) 

YL ( 10 , Nl , MM) =YC(MM)-THICK*COS (THETA) 

17 CONTINUE 

LERAD ( 10 , Nl ) =1.1019*TCMAX**2 

RETURN 

END 


SUBROUTINE LINEAR INTERPOLATES LINEARLY BETWEEN POINTS 
SUBROUTINE LI NEAR ( NU, XIN, YIN, XOUT, YOUT ) 

DIMENSION XIN(NU) , YIN(NU) 

INTEGER F 
NM1 = NU-1 
F = 1 

TEST FOR OFF LOW END 

IF (XOUT .LT. XIN(l)) GO TO 110 
F = NM1 

TEST FOR OFF HIGH END 

IF (XOUT .GT. XIN (NU ) ) GO TO 110 
IN RANGE 

DO 120 II = 2 , NM1 
F = II-l 

IF (XOUT .LE. XIN ( II)) GO TO 110 
120 CONTINUE 
F = NM1 

SLOPE INTERCEPT FORMULA 
110 CONTINUE 

IP1 = F+l 

SLP = (YIN(IPl)— YIN(F) )/ (XXN(XPl)-XIN(F) ) 

B2 = YIN(F)-XIN(F)*SLP 
YOUT = SLP*X0UT+B2 
RETURN 
END 

SUBROUTINE AREA FINDS AREA , COORDINATES OF CENTROID , 

AND MOMENTS OF INERTIA ABOUT PRINCIPLE AXES 

SUBROUTINE AREA ( XU , YU , XL , Y L , AT , XREF , YREF , IMAJ , IMIN , 10 , Nl , CHORD ) 
REAL IMAJ, IMIN 

DIMENSION AU ( 53 ) , DXU ( 53 ) , XMU ( 53 ) , YMU ( 53 ) , YPU ( 53 ) 

DIMENSION AL ( 53 ) , DXL ( 53 ) , XML ( 53 ) , YML ( 53 ) , YPL ( 53 ) 

DIMENSION A( 53) ,DX(53) ,XM(53) , YM(53) , YP( 53) 

DIMENSION XU (10, 10, 53) , YU( 10 , 10 , 53 ) , XL ( 10 , 10 , 53 ) , YL ( 10 , 10 , 53 ) 
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DATA AUP, ALP, AP, XAU , XAL , XA , YAU , YAL , YA/ 9*0.0/ 

IMAJ=0 . 0 

IMIN=0 . 0 

ISTEP=0 

NUMPTS=53 

DO 700 1=1 , NUMPTS 

J=I + 1 

IF ( ISTEP . EQ . 1 ) GO TO 702 
IF ( I . EQ . NUMPTS-1 ) GO TO 720 
IF(YL(I0,N1,J+1) . GT .0.0) GO TO 702 
720 DXU ( I ) =XU ( 10 , NX , J ) -XU ( 10, Nl , I ) 

DXL ( I ) =XL (I0,N1,J) —XL (I0,N1,I) 

XMU ( I ) = (XU ( 10 , N1 , J ) +XU (10, Nl, I) )/2 
XML ( I ) = (XL ( 10 , Nl , J ) +XL ( 10 , Nl , I ) )/2 
YMU ( I ) = (YU (I0,N1,J) + YU (IO,Nl,I))/2 
YML ( I ) =ABS ((YL(I0,N1,J)+YL(I0,N1,I) )/2) 

Y PU ( I ) = YMU ( I ) / 2 
YPL ( I ) =-YML ( I ) / 2 
AU ( I ) =DXU ( I ) *YMU ( I ) 

AL ( I ) =DXL ( I ) *YML ( I ) 

AUP=AUP+AU ( I ) 

ALP=ALP+AL ( I ) 

XAU=XAU+AU ( I ) *XMU ( I ) 

XAL=XAL+AL ( I ) *XML ( I ) 

Y AU= Y AU+ AU ( I ) *Y PU ( I ) 

YAL=YAL+AL ( I ) *YPL ( I ) 

A( I ) =0 . 0 
GO TO 703 

702 XP1= (XU ( 10 , Nl , I ) +XL (IO,Nl,I))/2 
XP2= (XU ( 10 , Nl , J)+XL (I0,Nl f J))/2 
DX( I)=XP2“XP1 

XM( I ) = ( XP1+XP2 ) / 2 

YM( I ) = ( YU (I0,N1,J)-YL(I0,N1,J) + YU ( 10, Nl, I ) - YL ( 10, Nl, I) )/2 
YP(I)=(YU(I0,N1, J)+YL(I0,N1, J)+YU(I0,N1, I)+YL(I0,N1, I) ) /4 
A( I ) =DX ( I ) *YM( I ) 

XA=XA+ A ( I ) *XM ( I ) 

YA=YA+A( I ) *YP( I ) 

AP=AP+A ( I ) 

ISTEP=1 

703 IF ( I. EQ. NUMPTS-1) GO TO 704 
700 CONTINUE 

704 AT=AUP+ALP+AP 

XREF= (XAU+XAL+XA ) /AT 

YREF= ( YAU+YAL+Y A ) /AT 

CHORD=CHORD*12 . 0 

AT=AT*CHORD**2 

XREF=XREF*CHORD 

YREF=YREF*CHORD 

ISTEP=0 

K=NUMPTS-1 

DO 707 1=1 , K 

IF( ISTEP .EQ . l)GO TO 706 

I F ( A ( I ) . GT .0.0) GO TO 706 

DIMIU= ( DXU ( I ) *YMU ( I ) **3 ) /12+AU ( I ) * ( YPU (I)~YREF)**2 
DIMIL= ( DXL ( I ) *YML ( I ) **3 ) /12+AL (I)*(YPL(I) -YREF ) 
IMIN=IMXN+DIMIU+DIMIL 

DIMAU= ( YMU( I ) *DXU ( I ) **3 ) /12+AU ( I ) * ( XMU ( I ) -XREF ) **2 
D IMAL= ( YML ( I ) *DXL ( I ) **3 ) / 12+AL ( I ) * ( XML ( I ) -XREF ) **2 
IMAJ=IMAJ+DIMAU+DIMAL 
GO TO 707 

706 DIMAJ=(YM(I)*DX(I) **3 ) /12+A( X ) * ( XM ( I ) -XREF ) **2 
DIMIN= ( DX ( I ) *YM( I ) **3 ) / 12+ A ( I) * ( YP ( I ) -YREF ) **2 
IMAJ= IMAJ+DIMAJ 

IMIN=IMXN+DIMIN 

ISTEP=1 

707 CONTINUE 

IMAJ=IMAJ*CH0RD**4 .0 
IMIN=IMIN*CHORD**4 .0 
RETURN 
END 

/ / $DATA 
/ / $STOP 
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Appendix I I 

NACA 4-Digit Program Case 
I nput/Output 
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Input File 


DATA ALPHA / -10 . 0 , -8 . 0 r -6 . 0 , -4 . 0 , -2 . 0 , 0 . 0 , 2 . 0 , 4 . 0 , 6 „ 0 , 8 . 0/ 
DATA NUMALP / 10 / 

DATA CLD / 0.2 / 

DATA NZRCLD / 1 / 

DATA TC / 0.120 / 

DATA NUMTC / 1 / 

DATA CHORD /l.O/ 

DATA MACH / 0.50/ 

DATA NUMACH / 1 / 

C SET RE = 0.0 FOR CALCULATION OF RE BASED ON MACH , ALT AND CHORD 
DATA RE / 0.0/ 

DATA ALT / 10000.0/ 

DATA MCP / 3 / 

DATA ACP / 1 / 

DATA CAMP / 0 / 
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Output File 


* NACA 4-DIGIT SERIES AIRFOIL COORDINATES * 

CLD = 0.200000 

(T/C)MAX = 0.120000 

LERAD = 0.015867 


X/C VALUE OF MAX. CAMBER 
Y/C VALUE OF MAX. CAMBER 


XUPPER 

YUPPER 

- 0.000000 

0.000000 

0.008880 

0.017666 

0.018481 

0.024866 

0.028210 

0.030300 

0.038008 

0.034796 

0.047854 

0.038674 

0.057735 

0.042099 

0.067642 

0.045169 

0.077572 

0.047950 

0.087521 

0.050485 

0.097533 

0.052811 

0.122455 

0.057840 

0.147488 

0.061960 

0.172570 

0.065337 

0.197688 

0.068081 

0.222836 

0.070274 

0.248005 

0.071979 

0.273190 

0.073243 

0.298387 

0.074107 

0.323592 

0.074604 

0.348801 

0.074762 

0.374011 

0.074604 

0.399220 

0.074153 

0.424425 

0.073425 

0.449625 

0.072438 

0.474817 

0.071205 

0.500000 

0.069740 

0.525172 

0.068053 

0.550333 

0.066155 

0.575480 

0.064054 

0.600613 

0.061757 

0.625731 

0.059273 

0.650833 

0.056605 

0.675918 

0.053758 

0.700984 

0.050738 

0.726033 

0.047546 

0.751061 

0.044185 

0.776070 

0.040657 

0.801057 

0.036962 

0.826022 

0.033100 

0.850964 

0.029071 

0.875883 

0.024873 

0.900763 

0.020505 

0.910728 

0.018708 

0.920674 

0.016885 

0.930616 

0.015033 

0.940554 

0.013152 

0.950487 

0.011243 

0.960416 

0.009305 

0.970340 

0.007338 

0.980260 

0.005341 

0.990174 

0.003314 

1.000000 

0.000000 


0.500000 

0.016800 


XLOWER 

YLOWER 

0.000000 

- 0.000000 

0.011120 

-0.016335 

0.021519 

-0.022232 

0.031790 

-0.026389 

0.041992 

-0.029635 

0.052146 

-0.032290 

0.062265 

-0.034519 

0.072358 

-0.036420 

0.082427 

-0.038058 

0.092479 

-0.039478 

0.102467 

-0.040715 

0.127545 

-0.043140 

0.152512 

-0.044824 

0 . 177430 

-0.045933 

0.202311 

-0.046577 

0.227164 

-0.046838 

0.251995 

-0.046779 

0 . 27 5810 

-0.046447 

0.301613 

-0.045884 

0.326408 

-0.045120 

0.351199 

-0.044186 

0.375989 

-0.043104 

0.400780 

-0.041897 

0.425575 

-0.040581 

0.450375 

-0.039174 

0.475183 

-0.037689 

0.500000 

-0.036140 

0.524828 

-0.034538 

0.549667 

-0.032891 

0.574520 

-0.031210 

0.599387 

-0.029502 

0.624269 

-0.027773 

0.649167 

-0.026029 

0.674082 

-0.024274 

0.699015 

-0.022514 

0.723967 

-0.020750 

0.748939 

-0.018985 

0.773930 

-0.017221 

0.798943 

-0.015458 

0.823978 

-0.013696 

0.849036 

-0.011935 

0.874117 

-0.010173 

0.899237 

-0.008409 

0.909272 

-0.007701 

0.919326 

-0.006993 

0.929384 

-0.006283 

0.939446 

-0.005572 

0.949513 

-0.004859 

0.959584 

-0.004144 

0.969660 

-0.003426 

0.979740 

-0.002706 

0.989826 

-0.001S84 

1.000000 

- 0.000000 
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Output File 


* NACA 4-DIGIT SERIES AIRFOIL DATA BANK * 


CLD = 

0.200000 


(T/OMAX = 

0.120000 


MACH NO. - 

0.500000 


REYNOLDS NO. = 

0.274529E 

07 

AREA - 

11.828390 

IN**2 

XCENTRIOD = 

5.048587 

IN 

YCENTRIOD = 

0.153324 

IN 

IMAJOR = 

36573.010 IN**4 

IMINOR = 

35.0840600 IN**4 

CMC4 = 

-0.050110 



ALPHA 

CL 

CD 

CMLE 

-10.000000 

-0.960685 

0.011524 

0.227216 

-8.000000 

-0.728548 

0.010441 

0.160204 

-6.000000 

-0.496411 

0.009357 

0.093192 

-4.000000 

-0.264274 

0.008250 

0.026179 

-2.000000 

-0.032137 

0.007105 

-0.040833 

0.000000 

0.200000 

0.006728 

-0.107845 

2.000000 

0.432137 

0.006530 

-0.174857 

4.000000 

0.664274 

0.009618 

-0.241869 

6.000000 

0.896411 

0.013376 

-0.308881 

8.000000 

1.128548 

0.017133 

-0.375893 
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Ill NACA-16 AIRFOIL DATA BANK 


1. Introduction 

The NACA 16-series airfoils were designed for use at 
transonic Mach numbers, and are particularly adaptable to the 
outer rad i i of propeller systems. These airfoils were designed 
to raise the Mach number at which the "compress ibi 1 ity burble" 
appears, and hence control the onset of drag divergence. This 
problem was originally discovered in the early 1940's when the 
requirement for higher aircraft velocities was realized. The 
reduction in drag was attained by decreasing the induced velocity 
near the leading edge of the airfoi 1 and increasing the induced 
velocity over the rear segment of the airfoil, which resulted in 
a constant value of the pressure distribution over the majority 
of the wing section. 

The NACA-16 series airfoil is designated by 16-XXX, with the 
first digit representing the lift coefficient at zero degree 

angl e-of-attack (Cj^), and the last two digits designating the 
maximum thickness in percent of chord of the airfoil. 

The computer program for the NACA 16-series airfoil 
databank, contained in Appendix I, was derived from publications 
by Cooper O) and the Curt i ss- Wr i ght Corporat i on(2) . The program 
uses tables and plots from these papers to compute the 
coefficients of 1 ift, drag, and moment about the quarter chord. 
Values of these aerodynamic coefficients from the existing 
databank were compared with the output from the airfoil analysis 
computer code of Smetana et.al.^) anc j found to be acceptable as 
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indicated in Table I, with an average deviation of 1.93%. 

Limits exist with the NACA 16-series airfoil data bank 
computer program. Flags have been installed where a limitation 
is exceeded, and appear in the "L i m i tat i ons" category in the 
printed output. These limitations will be discussed in detail in 
the following Sections. 

2 . I nput . 

The code has been arranged to compute up to 15 angl es-of- 
attack and 15 different Mach numbers with properly dimensioned 
arrays. Essentially, the airfoil is dictated by the 
specification of the design lift coefficient (Cj^), the maximum 
thickness to chord rat i o ((t/c)max), and the airfoil chord in 
feet. A list of input parameters is described in Table II and 
provided in Appendix II for the sample case. Other input 
parameters dictate the amount of computer output desired, 
including compressibility effects and other factors to be 
discussed later. 

3. Main Program. 

The main program is designed as an operating system to route 
the variables to the various subroutines described in the ensuing 
Sections. The output is passed back to the main program and 
output . 

4. Subroutine ATMCON. 

ATMCON calculates the temperature, pressure, speed of sound, 
density, and viscosity for a specified altitude using the 
empirical equations of Minzer, et.al.^ 3 ^ as given by Anderson ^ 4 K 
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These equations have been curve fit from the available data of 
the ARDC 1959 standard atmosphere^ 3 ) , and divide the atmosphere 
into two regions, i.e., from sea level to 11,000 meters, and 
11,000 to 25,000 meters. These equations are given as: 


Sea 1 eve 1 to 1 1 ,000 meters . 

Temp = 288.16- 0.0065 h II I- 1 

P = ( 1 0 1 325 ) / ( l/(Temp/288. 16) )~5.2457 I I 1-2 

11,000 meters to 25,000 meters . 

Temp =216.66 111-3 

P = (22,700) exp (0.0001547( h- 1 1 , 0 00 ) ) I I 1—4 


where h is in meters. Temperature is in “K, and pressure is in 
N/m2. The values of P and Temp are converted by; 

Temp = (Temp - 273.15) 9/5 + 491.67 I I 1-5 

P = 2116.2 P/101325 II 1-6 

where Temp and P are now in units 4 R and lbs/ft^, respectively. 
Values of density, viscosity, and speed of sound are then 
calculated by: 

Density = (Pressure) /( 1 7 18) (Temp) 111-7 

Viscosity = 3. 5x1 0” 7 I I I — 8 

Speed of Sound =^ ( 403 . 2 ) (Temp) /0 . 3047 11 1-9 

where density is in 1 b-ft^/sec^, viscosity in 1 b-sec/ft^, and 
speed of sound in ft/sec. 

5. Subrut ine CLCD 

Subroutine CLCD calculates the section lift and drag 
coefficients for a NACA- 1 6 series airfoil. The database for this 
subroutine has been taken from graphical descriptions of data as 
found in Cooper ( 
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The lift curve slope (dC^/da) is computed for the case of 
subsonic or supersonic Mach number. For the subsonic case, 
compressibility effects are taken into account by the application 
of the Prandt 1-G1 auert factor^ The 1 i ft- curve s 1 ope is then 
found by one of the following equations? 


Incompressible Lift Curve 



The drag coefficient can be obtained from an algorithm 
contained in Cooper^ 1 ) in which the drag is character I zed by the 
sum of four components, i.e.» the basic drag coefficient (C^q), 
the increment due to lift (Cdi)* the increment due to camber 
^dd)* and the increment due to skin friction (Cdf)» Using 
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Figure 1 and knowing the difference between the lift coefficient 
and the design lift coefficient, and the corrected airfoil 
section Mach number (M s ) given bys 

M x 

M s - - — — — I I I — 1 5 

0.9 ~ (t/c)max 

the parameter AC d /(CpCi ( j ) 2 is found. The drag due to 1 i f t 
(C d i> may then be calculated by; 


AC d 

C d] = o (C,-Ci d ) 2 

(C,-C, d ) 


I I I- 16 


The skin friction drag (C^p-) is obtained by specifying from 
the Reynolds number and the radial blade location (X=r/R). The 
radial location on the propeller blade indicated a strong effect 
on the extent of laminar run of each airfoil section, and has 
been quantized by Cooper ( * ) ( F 1 gure 2). Thus the skin friction 
drag coefficient (Cdf) is found graphically in Figure 3, and 
curve fit for the airfoil databank. 

The drag due to camber (C^) represents the increase in the 
minimum basic drag of cambered NACA 16-series airfoils over that 
of an uncambered section as given in Figure 4. The data were 
obtained from two-dimensional NACA tests which extended to Mach 
0.8. Above Mach 0.8 and in supersonic flow, the effects of 
camber are known to be small and C^ approaches zero. 

Finally, the basic drag coefficient (C ( j i0 ) is given in 
Figure 5 as a function of (t/c)max and section Mach number (M x )* 
This relationship was obtained by Hoerner^^ from low speed wind 
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tunnel tests of NACA-16 series airfoil sections. 


These four drag contributions are summed to obtain the total 
drag coefficient of the airfoil section; 


*-d - ^do + ^df + Ccj ] + 


6. Moment Coefficient 

The moment coefficent is obtained from tables acquired from 
Lindsey, et.al.^k) m These tables were generated from the results 
of wind tunnel tests of 24 related airfoil sections over a Mach 
number range of 0.3 to 0.75. A typical plot is shown in Figure 6. 
The tables are arranged in matrix form for values of 0.0, 

0.1, 0.3, and 0.5, at Mach numbers of 0.3, 0.45, 0.6, 0.7, and 

0.75 with thickness ratios of 0.02, 0.06, 0.09, 0.12, 0.15, 0.21 

and 0.30. These data are contained in Function Subroutines 
designated CM XXX, where a Lagrangian interpolation scheme obtains 
the desired airfoil quarter chord moment coefficient from the 
available information. However, this value can easily be 
transformed to the moment coefficient about the airfoil leading 
edge by; 


^mle - Cmqc 0.25 C| III 8 

7. Subroutine N16C00R 

The airfoil coordinates and other pertinent airfoil 
information is computed, if desired, in this subroutine where: 


122 



0.489 (t/c)max 2 

L * E . r ad i us = ' — I I 1-19 

Chord 

Area =0.7396( 1 +0.00544 C } d 2 ) ( t/c ) max Chord I I 1-20 

M x =0 . 03335 ( 1 +0.00196 Ci d 2 ) C ld (t/c)max Chord 2 + III-21 

0.01 775 ( 1 +0.1332 C ld 2 ) C ld (t/c)max 3 

M y =0 . 3569 ( 1 +0.00458 C ] d 2 ) ( t/c ) max Chord 2 I I I - 22 

I X = 0.G4476( 1 -0.00 182C ld 2 ) (t/c) max 3 Chord + I I I - 2 3 

0 . 00009358 ( 1 +0.02013 Cj d 2 ) C] d 2 (t/c)max Chord 3 

( y — 0.04221 ( 1+0.01287 C 1d 2 > (t/c)max Chord 2 I I I -24 

The moments, M x and My, and the moments of inertia I x and Iy are 


computed about the respective axes. The airfoil coordinates are 
computed from empirically derived Tables that define the airfoil 
shape along with the given (t/c)max and given C| d . The equations 
are given as: 

A = Cjdd Chord + C 2 C] d (t/c ) max 3 /Chord I I 1-25 

B = C 3 (t/c ) max + C^C}^ 2 (t/c)max I I 1-26 

with the coefficients C j , C 2 » C 3 , and C 4 specified in Table III 

as a function of chord location. The coordinates are then 
calcualted by: 

2 A 

Y y _ I 1 1-27 

Chord 

A - B 

Y 1 = I 1 1-28 

Chord 
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where Y u is the upper airfoil coordinate, and Y] is the airfoil 
lower coordinate for a given x/c location. 


8. Limitations 

As stated earlier, some limitations exist in the computer 
program, and when exceeded, flags are contained in the program 
output to indicate to the User what value has been exceeded. It 
is to be noted that a Mach number of 0.0 is not allowed, and the 
program has difficulty handling negative angles of attack of 
large magnitude at high Mach numbers for thick airfoils. The 
flags appear as; 

(a) "T/C = 30 IS GREATER THAN (T/C) MAX = 26 FOR THE LIFTCURVE 

SLOPE” 

(b) "(CL-CLD) = . 9 IS GREATER THAN (CL~CLD)(MAX)=.8F0R DRAG DUE TO 
LIFT" 

(c) "CLD= .8 IF GREATER THAN CLDMAX= .6 FOR DRAG DUE TO CAMBER" 

(d) "T/C= .40 IS GREATER THAN (T/C) MAX= .30 FOR THE BASIC DRAG" 

(e) "MACH NO.= .95 IS GREATER THAN (T/C) M AX= .35 FO R THE MOMENT 
COEFFICIENT" 

(f) "T/C- .40 IS GREATER THAN (T/C) MAX- .35 FOR THE MOMENT 

COEFFICIENT" 

(g) "CL= 1.6 IS GREATER THAN CLMAX= 1.3 FOR THE MOMENT 

COEFFICIENT" 

(h) "CLD=.90F GREATER THAN CLD MAX=.8F0R THE MOMENT 

COEFFICIENT" 

(i) " ANGLE= 10.0 IS GREATER THAN MAX ANGLE= 9.0" 

( 1) "MACH NO. -.95 IS GREATER THAN MACH NO.(MAX)= .9 FOR SUBSON IC 
SPEED" 

9. Sample Case 

A sample case with the corresponding input and output is 
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provided in Appendix II tonindicate how the NACA 16-series 
airfoil databank computer code may be utilized* The complete 
output selection for the sample casec'was chosen to show the full 
capabilities of the databank code.- f 
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Table I. Comparison Cases for NACA-16 Airfoil Data Bank. 


(t/c) 

max 

Mach 
No . 

a 

(deg) 

Actual 

C 1 

Val ues 
C d 

(Cld - 

N AC A- 1 6 
C 1 

1 ) 

Values 

c d 

A %C ] A %C d 

0.04 

0.45 

0 

0.1147 

0.0056 

0.1146 

0.0008 

1.3 1 

-3 1 .50 

0.04 

0.45 

2 

0.3583 

0.0071 

0.3560 

0.0107 

0.64 

-33.88 

0.06 

0.45 

0 

0.1100 

0.0005 

0.1160 

0.0008 

-5.22 

-30.72 

0.06 

0.45 

2 

0.3527 

0.0081 

0.3556 

0.0111 

-0.81 

-27 . 1 0 

0.06 

0.70 

0 

0. 1400 

0.0075 

0. 1536 

0.0174 

-8.86 

-56.59 

0.06 

0.70 

2 

0.5181 

0.0159 

0.4706 

0.0221 

10.09 

-28. 1 7 

0.09 

0.45 

0 

0. 1007 

0.0065 

0.1184 

0.0090 

- 14.87 

-28.74 

0.09 

0.45 

2 

0.3359 

0.0090 

0.3553 

0.0116 

-5.47 

-21.20 

0.09 

0.70 

0 

0. 1330 

0.0083 

0. 1625 

0.0238 

-18.14 

-65.09 

0.09 

0.70 

2 

0.4690 

0.1914 

0.4878 

0.0287 

-3.85 

-33 . 52 






C l d = 0.3 





0.02 

0,70 

0 

0.4761 

0.0072 

0.4322 

0.0073 

10.14 

-2.16 

0.02 

0.70 

2 

0.7842 

0.0139 

0.7418 

0.0153 

5.71 

-8.47 

0.04 

0.45 

0 

0.3135 

0.0139 

0.7418 

0.0073 

-8.82 

-23 . 45 

0.04 

0.45 

2 

0.5741 

0.0093 

0 . 5852 

0.0105 

-2 . 42 

-11.73 

0.04 

0.70 

0 

0.4691 

0.0070 

0.4456 

0.0074 

5.26 

-6.88 

0.04 

0.70 

2 

0.7911 

0.0161 

0.7585 

0.0160 

4.30 

0.59 

0.06 

0.45 

0 

0.3135 

0.0050 

0.3482 

0.0075 

-9.95 

-33 . 18 

0.06 

0.45 

2 

0.5599 

0.0098 

0.5877 

0.0180 

-4.73 

-9.2 0 

0.06 

0.70 

0 

0.4621 

0.0088 

0.4608 

0.0078 

0.28 

11.82 

0.06 

0.70 

2 

0.7981 

0.0182 

0.7778 

0.1711 

2.61 

6.45 

0.09 

0.45 

0 

0.2855 

0.0065 

0.3550 

0.0079 

-19.57 

-17.65 

0.09 

0.45 

2 

0.5262 

0.0110 

0.5920 

0.0112 

-11.10 

-2.37 

0.09 

0.70 

0 

0.4060 


0.4873 

0.0086 

- 16.68 


0.09 

0.70 

2 

0.7415 

0.0182 

0.8127 

0.0191 

-8.68 

-5.13 
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M 

ANGLE 

ALTUDE 

CHORD 

TC 

CLD 

I CL 

I CD 

X 

NUMACH 
NUMALP 
I FORM 
MP 

L 


Table II. NACA-16 Series Input List. 


Mach Number 

Angle of Attack 

Geometric Altitude (in feet) 

Chord (feet) 

Maximum Thickness to Chord rat i o 
Design Lift Coefficient 

Lift Coefficient Parameter 

0 = Incompressible Lift Coefficient 

1 = Compressible Lift Coefficient 

Drag Coefficient Parameter 

0 = Incompressible Drag Coefficient 

1 = Compressible Drag Coefficient 

Radial Location on the Propeller (r/R) 

Number of Mach Numbers 
Number of Alphas 
Output Format Control 

Moment Coefficient Parameter 

0 = No Moment Computed 

1 ~ Moment Coefficient about Leading Edge 
2= Moment. Coeff i c i entabout Q uarter Chord 

Airfoil Coordinates Parameter 

0 = No Coordinates Computed 

1 = Airfoil Coordinates Computed 
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Table 

III. Airfoil 

Coordinate 

Coef f ic ients . 


Chordw i se 
St at. i on 

C 1 

C 2 

C 3 

C 4 

1 

0.00930 

0. 12720 

0. 15044 

0 . 0063 9 

2 

0.0 1580 

0.09653 

0 . 2091 1 

0.00574 

3 

0.02587 

0.06600 

0.2881 l 

0.00440 

4 

0.03982 

0 . 03473 

0.38867 

0 . 00237 

5 

0.04861 

0.01461 

0.45144 

0.00 103 

6 

0.05356 

0.00394 

0 . 48789 

0 . 00025 

7 

0.05516 

0.00000 

0.50000 

0.00000 

8 

0.65356 

0.00447 

0.48622 

0.00025 

9 

0.04861 

0.01895 

0.4391 1 

0.00100 

1 0 

0.03982 

0.04400 

0.34989 

0.0002 1 

1 i 

0.02587 

0.05961 

0 .20978 

0.0032 1 

12 

0.0 158 

0 . 05469 

0.11 789 

0.00324 
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Appendix - I 

NACA 16-Series Program Listing 
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//NACA16 JOB (R205,011C,SQ2,002,A7), ' CAMBA ' 
//*XBM WATFIV 




* * 

* PROGRAM TO CALCULATE THE LIFT, DRAG, AND * 

* s* 

* MOMENTS FOR NACA 16-SERIES AIRFOILS * 

tJf * 




THIS PROGRAM CALCULATES THE LIFT COEFFICIENTS DRAG COEFFI- 
CIENTS, LIFT-TO-DRAG RATIOS, AND MOMENT COEFFICIENTS FOR 
NACA 16-SERIES AIRFOILS. IT IS WRITTEN IN FORTRAN G-l, 
ORIGANALLY FOR USE ON A HARRIS /6 COMPUTER. THE USER WILL 
HAVE TO DEVLEOP A ROUTINE FOR READING IN THE INPUT 
THAT IS COMPATIBLE WITH HIS OR HER SYSTEM. SOME LIM- 
ITATIONS DO EXIST IN THE PROGRAM. A MACH NUMBER OF 
0.0 IS NOT ALLOWABLE. ALSO, THE PROGRAM HAS TROUBLE 
HANDLING NEGATIVE ANGLES OF ATTACK OF LARGE MAGNITUDE 
AT HIGH MACH NUMBERS FOR THICK AIRFOILS. 


INPUT LIST 

I CD = DRAG COEFFICIENT COMPRESSIBILTY CHECK FACTOR 
= 0, GIVES INCOMPRESSIBLE DRAG COEFFICIENT 
= 1, GIVES COMPRESSSIBLE DRAG COEFFICIENT 

ICL - LIFT COEFFICIENT COMPRESSIBILITY CHECK FACTOR 
= 0, FOR AN INCOMPRESSIBLE LIFT COEFFICIENT 
= 1, FOR A COMPRESSIBLE LIFT COEFFICIENT 

IFORM “ CHECK PARAMETER WHICH CONTROLS FORMAT OF OUTPUT 
= 0, GIVES ALL OF THE INCREMENTS IN THE DRAG 
= 1, GIVES TABULAR OUTPUT OF CL AND CD AT EACH ALPHA 
ONE TABLE FOR EACH MACH NUMBER 

NUMALP = NUMBER OF ALPHAS SPECIFIED (INTERGER) UP TO 15 

NUMACH = NUMBER OF MACH NUMBERS (INTEGER) UP TO 15 

CLD = DESIGN LIFT COEFFICIENT 

TC = THICKNESS TO CHORD RATIO 

CHORD = CHORD LENGTH (FEET) 

ALTUDE = ALTITUDE (FEET) 

M = MACH NUMBER ( S ) 

ANGLE = ANGLE (S) OF ATTACK REFERENCED FROM THE LONGEST CHORD (DEGREES) 

X = RADIAL LOCATION 

MP * MOMENT COEFFICIENT PARAMETER 

= 0, IF THE MOMENT COEFFICIENTS ARE NOT DESIRED 
= 1, FOR THE MOMENT COEFFICIENT ABOUT THE LEADING EDGE 
- 2 , FOR THE MOMENT COEFFICIENT ABOUT THE QUARTER CHORD 

L = AIRFOIL COORDINATES PARAMETER 

= 0, IF THE COORDINATES ARE NOT DESIRED 
= 1, GIVES THE AIRFOIL SECTION COORDINATES AND ITS 
MOMENTS OF INERTIA 
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SUBROUTINE ATMCON 


THIS SUBROUTINE IS VERY STRAIGHT FORWARD. GIVEN AN ALTITUDE, THE 
SUBROUTINE CALCULATES THE TEMPERATURE, PRESSURE, DENSITY, VISCOSITY, 
AND SPEED OF SOUND AT THAT ALTITUDE. 


SUBROUTINE N16COR 


THIS SUBROUTINE CALCULATES THE DIMENSIONS AND SECTION PROPERTIES 
FOR A (SOLID SECTION) NACA 16-SERIES AIRFOIL SECTION FOR ANY 
GIVEN THICKNESS, CHORD, AND DESIGN LIFT COEFFICIENT. IF A 
DESIGN LIFT COEFFICIENT IS NOT KNOWN BUT THE AREA, TC, AND 
CHORD IS, THEN THE CLD WILL BE OUTPUT. THE ROUTINE ALSO CAL- 
CULATES THE MOMENT OF INERTIA FOR THE MAJOR (X) AND MINOR 
(Y) AXES. SEVERAL OTHER PROPERTIES OF THE NACA 16-SERIES ARE 
CALCULATED, BUT ARE NOT OUTPUT UNLESS DESIRED. THEY ARE 
DEFINED BELOW. ALSO NOTE THAT THE COORDINATES ARE NON-DIMEN- 
SIONAL WITH RESPECT TO THE CHORD, AND THE X UPPER AND LOWER 
ARE THE SAME. 

LERAD = LEADING EDGE RADIUS OF AIRFOIL 
TERAD = TRAILING EDGE RADIUS OF AIRFOIL 
MY = MOMENT ABOUT THE Y AXIS 

MX = MOMENT ABOUT THE X AXIS 

IYC = MOMENT OF INERTIA ABOUT Y CENTROIDAL AXIS 

IXC = MOMENT OF INERTIA ABOUT X CENTROIDAL AXIS 


SUBROUTINE CLCD 


SUBROUTINE CLCD CALCULATES THE SECTION LIFT AND DRAG COEFFICIENTS FOR A 
NACA 16-SERIES AIRFOIL. THE DATA BASE FOR THIS SUBROUTINE IS FROM: 

COOPER, J. L., "THE ’LINEARIZED INFLOW' PROPELLER ANALYSIS" WADC TR 56-516, 
1957. THE EQUATIONS AND GRAPHS CONTAINED IN THIS REPORT FORM THE BASIS 
FOR ALL FURTHER DISCUSSION. 


CALCULATION OF CL (SEE COOPER, P. 14) 

A. FOR SUBSONIC SECTION VELOCITIES s 

CL= ALPHA*DCLDA WHERE: 

DCLDA= . 1096* ( 1-XTC) /SQRT ( 1-XTC**2 ) 

AND ALPHA IS SPECIFIED IN INPUT 

B. FOR SUPERSONIC SECTION VELOCITIES? 

DCLDA= . 06 9 8/ SQRT (XM** 2-1 ) 

XM= LOCAL MACH NUMBER 

AND CL=ALPHA*DCLDA 


CALCULATION OF CD 

THE DRAG COEFFICIENT IS CALCULATED IN FOUR INCREMENTS: BASIC DRAG 
COEFFICIENT(CDZERO) ;THE INCREMENT DUE TO LIFT (CDLIFT) ; THE INCREMENT 
DUE TO CAMBER ( CDCAMB ); AND THE INCREMENT DUE TO SKIN FRICTION (CDFRIC) . 


BASIC DRAG COEFFICIENT: 


DATA FOR CALCULATION OF CDZERO IS TAKEN FROM FIG 12, P.31 IN COOPER. 
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THIS IS A PLOT OF CDZERO -VS- MACH NUMBER AS A FUNCTION OF THICKNESS . 
GIVEN A THICKNESS AND A MACH NUMBER, THE PROGRAM CALCULATES THE DRAG- 
DIVERGENCE MACH NUMBER BY LINEAR INTERPOLATION, AND TESTS TO SEE IF THE 
SPECIFIED MACH NUMBER IS ABOVE OR BELOW THE DRAG DIVERGENCE MACH NUMBER . 
IT THEN CALCULATES CDZERO ACCORDINGLY. 

A. FOR SUBSONIC SECTION VELOCITIES: 

THE SUBROUTINE PERFORMS A LINEAR INTERPOLATION IF THE LOCAL MACH IS 
BELOW THE DRAG DIVERGENCE MACH NUMBER, OR USES A POLYNOMIAL CURVE FIT 
FOR LOCAL MACH NUMBERS ABOVE THE DRAG DIVERGENCE MACH NUMBER. 


B. FOR SUPERSONIC SECTION VELOCITIES: 

THE SUBROUTINE USES A POLYNOMIAL CURVE FIT ON THE SUPERSONIC PORTION 
OF THE CURVE TO ARRIVE AT A VALUE FOR CDZERO. 


#r *r *r J|QTE * * * * * 

IF THE THICKNESS IS LESS THAN .03 OR IF CDZERO IS NEGATIVE, THEN 
CDZERO IS SET EQUAL TO 0.0. 


CALCULATION OF CDLIFT 


DATA FOR CDLIFT CALCULATION COMES FROM FIGURE 9A, P . 26 IN COOPER. 

FIRST: 

DELTA= (CL-XCLI ) 

THEN IT CALCULATES XMXT, THE WEIGHTED MACH NUMBER 
XMXT=XM/( . 9-XTG) 

THEN IT CALCULATES DELCD USING THE FORMULA AT THE TOP OF FIGURE 9A. 

DELCD= (XMXT**2-XMXT~. 1765) *(- . 4397*DELTA**2+ . 1X73*DELTA- . 0938) 

NEXT, TESTM IS CALCULATED. TESTM IS THE VALUE OF XMXT ON THE LINE 
LABELED LIM A WHICH CORRESPONDS TO THE VALUE OF DELCD JUST CALCULATED. 
OBTAINED. 

TESTM= (DELCD-. 03) *( . 9- . 87 5 ) / ( . 03- . 08 ) + . 9 

IF THE VALUE OF XMXT IS GREATER THAN TESTM, THE EQUATION ABOVE DOES 
NOT HOLD. THEN THE VALUE OF DELCD IS ARRIVED AT BY USING A 6TH 
DEGREE POLYNOMIAL CURVE FIT TO FIND THE SLOPE OF THE PLOT. THEN: 

DELCD=SLOPE*(XMXT-l. 011111 >+.0911111 

THEN THE SUBROUTINE TESTS IF YOU HAVE A SUPERSONIC MACH NUMBER. 

IF SO: 

DELCD= SQRT(XM**2~l)/4 AND 
DELTA= CL 

ONCE DELTA AND CL HAVE BEEN CALCULATED IN THE PROPER MANNER, 

CDLIFT IS GIVEN BY: 

CDLIFT=DELCD* r DELTA**2 
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CALCULATION OF CDFRIC 


THE COEFFICIENT OF DRAG DUE TO FRICTION IS A FUNCTION OF REYNOLDS 
NUMBER AND PERCENT LAMINAR FLOW; AND IS CALCULATED USNG FIGURES 
10A AND 10B , PP . 28-9 IN COOPER. 

FIGURE 10B IS A CURVE OF PERCENT LAMINAR FLOW -VS- RADIAL LOCATION. 
FROM THIS CURVE THE SUBROUTINE FINDS THE PERCENT LAMINAR FLOW OVER 
THE AIRFOIL (PLAM) BY A 2ND. DEGREE POLYNOMIAL CURVE FIT. 

PLAM=(33.+l./3. )*XR**2+(8.+l./3.)*XR+17 .0 

THEN THE REYNOLDS NUMBER FOR THE AIRFOIL IS CALCULATED BY: 
XRN=DEN*XM*WA*CHORD/VIS 

WHEN WE HAVE REYNOLDS NUMBER AND PERCENT LAMINAR FLOW, CDFRIC IS 
CALCULATED FROM: 

CDFRIC=2 . 65/SQRT (XRN ) + ( 100- PLAM) /PLAM* ( . 944/DLOG10 (XRN ) . 65/SQRT ( 
ScSQRT (XRN ) ) 

***NOTE**** 

THIS IS FOUND ON P . 25 IN COOPER 


CALCULATION OF CDCAMB 


CDCAMB , 'THE DRAG DUE TO CAMBER REPRESENTS THE INCREASE IN THE 
MINIMUM BASIC DRAG COEFFICIENT OF CAMBERED NACA 16-SERIES AIRFOILS 
OVER THAT OF THE UNCAMBERED AIRFOILS OF THE SAME SERIES'- COOPER 


CDCAMB IS CALCULATED FROM FIGURE 11, P.30 IN COOPER. THIS IS A PLOT 
OF CDCAMB -VS- XMXT AS FUNCTION OF CLD . 

THE SUBROUTINE PERFORMS A SERIES OF LINEAR INTERPOLATIONS TO FIND 
THE PROPER CDCAMB AT A SPECIFIED XMXT FOR A SPECIFIED CLD. 


CALCULATION OF MOMENT COEFFICIENTS 


ABOUT THE QUARTER CHORD (CMQC) 

DATA TABLES FOR THE MOMENT COEFFICIENTS ABOUT THE QUARTER 
CHORD ARE SET UP FOR CLDS ' OF 0.0, 0.1, 0.3, AND 0 . 5 AT MACH 
NUMBERS OF 0.3, 0.45, 0.6, 0.7, AND 0.75 WITH THICKNESS RATIOS 
OF .02, .06, .09, .12, .15, .21, AND .30. A LAGRANGIAN INTER- 

POLATION ROUTINE INTERPOLATES BETWEEN THE TABLES TO OBTAIN THE 
DESIRED MOMENT COEFFICIENT. THE DATA TABLES ARE EXTRACTED FROM 
LINDSEY, W.F., D.B. STEVENSON, AND BERNARD N. DALEY, "AERODYNA- 
MIC CHARACTERISTICS OF 24 NACA 16-SERIES AIRFOILS AT MACH NUMBERS 
BETWEEN 0.3 AND 0.8" NACA TN1546, FIG. 7-9, PP. 57-72. 

ABOUT THE LEADING EDGE ( CMLE ) 

THE MOMENT COEFFICIENT ABOUT THE LEADING EDGE IS TRANSFORMED 
FROM THE QUARTER CHORD WITH THE FOLLOWING EQUATION: 

CMLE = CMQC-0 . 25*CL 
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DIMENSION CLF (30,30) ,CDL(30,30) ,CDFR(30,30) , CDC (30 r 30) , CDF ( 30 , 30 ) 
DIMENSION CDZ (30,30) , CM (30, 30) ,RLD(30,30) 

DIMENSION ANGLE (3) ,ANG(30) 

DIMENSION RN ( 30 ) 

REAL MXMACH 
REAL M(3) 

DATA M/0.3,0.5,0.7/ 

DATA ANGLE/0.0,2.0,4.0/ 

DATA ALTUDE/0 . / 

DATA CHORD/1 . 000/ 

DATA TC/0.15/ 

DATA CLD/0.2/ 

DATA ICL/1/ 

DATA ICD/1/ 

DATA X/.50/ 

DATA NUMACH/3/ 

DATA NUMALP/3/ 

DATA I FORM/ 1/ 

DATA MP/1/ 

DATA L/l/ 


CALL ATMC0N(ALTUDE, TEMP, PRES, DEN, VIS, WA) 

ALPHAO»-CLD/ ( 0 . 1096*SQRT ( (l+TC)/( 1-TC) ) ) 

CALL N16C0R ( L , CHORD , TC , CLD , AREA) 

CALL TEST (TC, MXMACH) 

WRITE (6 , 10) 

10 FORMAT ( 1 1 ' , 56X, ' *** LIMITATIONS ***'//) 

DO 21 K=1 , NUMACH 

36 DO 42 J= 1 , NUMALP 

ANG( J ) =ANGLE ( J ) -ALPHA0 

CALL CLCD(M(K) ,ANG(J) , CLF (K, J) , CDF (K, J) , ICL , ICD , CHORD , TC , RN (K) 
& , CLD , X , WA, VIS , DEN , CDFR( K, J ) , CDL (K, J ) , CDC ( K , J ) , CDZ (K , J ) ) 

RLD ( K , J ) = CLF(K, J)/CDF(K, J) 

IF(MP.EQ.O) GO TO 5 
HMIN=0 . 3 
HMAX=0 . 7 5 
TCMIN=0 .02 
TCMAX-0 .30 
CLFMIN«-0 . 3 
CLFMAX=1 . 0 

IF (M(K) .LT.HMIN) WRITE(6,22) M(K) ,HMIN 
22 FORMAT (' ',9X,'MACH NO. = ',F10.6,' IS LESS THAN MACH', 

&' NO. (MIN) = 1 , F10 . 6 , ' FOR THE MOMENT COEFFICIENT'/) 

IF(M(K) .GT.HMAX) WRITE(6,31) M ( K ) , HMAX 
31 FORMAT ( * ' , 9X , ' MACH NO. = ’ ,F10.6,' IS GREATER THAN MACH NO.' 

& , * ( MAX ) - ’ , F10 . 6 , ' FOR THE MOMENT COEFFICIENT’/) 

IF ( TC . LT . TCMIN ) WRITE(6,43) TC,TCMIN 
43 FORMAT ( ’ ',9X,'T/C = ’,F10.6,’ IS LESS THAN (T/C)MIN = 

&F10.6,' FOR THE MOMENT COEFFICIENT'/) 

IF(TC.GT.TCMAX) WRITE (6, 50) TC,TCMAX 
50 FORMAT ( ' ’,9X,'T/C = ',F10.6,' IS GREATER THAN (T/C)MAX = ’, 

&F10.6,' FOR THE MOMENT COEFFICIENT'/) 

IF ( CLF (K, J ) . LT . CLFMIN ) WRITE(6,60) CLF ( K , J) , CLFMIN 
60 FORMAT ( ' ',9X, ’CL = ',F10.6,* IS LESS THAN CLMIN = ’,F10.6, 

&' FOR THE MOMENT COEFFICIENT'/) 

IF(CLF(K, J) .GT.CLFMAX) WRITE(6,65) CLF ( K, J ) , CLFMAX 
65 FORMAT ( * ’,9X,’CL = ’,F10.6,’ IS GREATER THAN CLMAX = ',F10.6, 

& ' FOR THE MOMENT COEFFICIENT'/) 

CM0QC=CM0FF(M(K) , TC , CLF (K, J ) ) 

CM1QC=CM1FF(M(K) ,TC,CLF(K f J) ) 

CM3QC=CM3FF(M(K) ,TC,CLF(K, J)) 

CM5QC=CM5FF (M(K) , TC , CLF ( K , J ) ) 

VARIABLE ' CM . NO . QC ’ : 'CM' = MOMENT COEFFICIENT 

'.NO.' = DESIGN LIFT COEFFICIENT * 10 
'QC = QUARTER CHORD 

CLDMIN=0 .0 
CLDMAX=0 . 5 

IF (CLD . LT . CLDMIN ) WRITE(6,55) CLD , CLDMIN 
55 FORMAT (' ',9X,’CLD a ',F10.6,' IS LESS THAN CLDMIN = ',F10.6, 
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Sc ' FOR THE MOMENT COEFFICIENT'/) 

IF(CLD.LE.O.l) GO TO 4 
IF(CLD.L£.0.3) GO TO 1 
IF ( CLD . LE . 0 . 5 ) GO TO 2 
WRITE (6,70) CLD , CLDMAX 

70 FORMAT ( ' ',9X,’CLD = ',F10.6,' IS GREATER THAN CLDMAX = ',F10.6, 

&’ FOR THE MOMENT COEFFICIENT'/) 

GO TO 2 

4 Y1=CM1QC-CM0QC 
Xl-0.1 
X2=CLD 
Y2=Y1*X2/X1 
GO TO 3 

1 Y1=CM3QC-CM1QC 
X1=0 . 2 
X2=CLD-0 . 1 
Y2=Y1*X2/X1 

GO TO 3 

2 Y1=CM5QC-CM3QC 
X1=0 . 2 
X2=CLD-0.3 
Y2=Y1*X2/X1 

3 CM (K, J ) =Y2 

IF(MP.EQ.l) CM ( K r J ) =CM (K,J)-0.25*CLF(K,J) 

5 IF (MP . EQ . 0 ) CM ( K , J ) =0 . 0 

IF(TC.GT.O.l) GO TO 281 
IF(M(K) .LT.0.5) GO TO 281 
IF (M ( K) . GE .1,0) ALTEST=999 . 99 
CALL AOAT(M(K) ,ALTEST,K) 

IF(ANGLE(J) .GT.ALTEST) WRITE(6,20) ANGLE ( J ), ALTEST 
20 FORMAT (' ',9k, 'ANGLE = ' ,F10.6,’ IS GREATER THAN MAX.', 

& 1 ANGLE = ’ ,F10.6/) 


281 IF(M(K) .LT.MXMACH) GO TO 42 
IF (M(K) .GE.1.0) GO TO 42 
WRITE (6,30) M(K) ,MXMACH 

30 FORMAT (’ ' , 9X , ' MACH NO. = ',F10.6, ! IS GREATER THAN MACH NO.', 

& ' (MAX) « ' , F10 . 6 , ' FOR SUBSONIC SPEED'/) 

42 CONTINUE 

21 CONTINUE 


IF(XFORM.EQ.l) GO TO 53 
DO 87 KK=1 , NUMACH 


DO 88 LL=1 , NUMALP 
WRITE(6,254) 

254 F0RMAT( '1' ,39X, , IX, 'NACA 16,6 SERIES AIRFOIL DATA BANK’, 
S.1X, '•'////) 

WRITE (6,900) CLD , ALPHAO , TC , M( KK) , ANGLE ( LL ) , ALTUDE 
900 FORMAT ( 30X, ' INPUT PARAMETERS ’ /25X, 32 ('*' ) 

&/25X, , 30X , ' * ' /25X, ' * ' ,30X, ’*'/25X, ! * ' , 5X 

&, ' CLD= ’ , F10 . 7 , 11X, ' * ' /25X, **' ,30X, ’*’/25X, ,30X 

&, ’*’/25X, ,5X, ' ALPHAL0= 1 ,F10.7,9X, '*'/ 

&25X, '*' , 30X , '*'/25X, ' ,30X 

&, ' * ' /25X, ,5X, ' T/C= ' , F10 . 7 , 11X , ’*’/25X, ’ * ' , 

&30X, ' * ' /25X , , 30X, 1 * ' /25X, ,5X, ' MACH* ' , 

S.F10.7, 10X, ' * ' /25X, , 30X , ’*'/25X, ,3QX, '* ' 

&/25X , ,5X, ' ALPHA= ' ,F10.7,9X, '*'/25X, , 

&30X, ' * ' /25X , ' * ' , 30X, '*'/25X, ,5X, ' ALTITUDE* ' , 

&F10 . 3 , 6X , ' * ' /25X, ' * ' , 30X , '*'/25X, '*',30X, ' * ' /25X, 32 ( ' * ' ) ) 


WRITE (6,99) CLF ( KK , LL ) 

99 F0RMAT(20X, ’ LIFT COEFFICIENT* ' , F10 .6///) 

WRITE ( 6 , 100 ) CDL (KK , LL ) 

100 FORMAT(20X, ' INCREMENT IN DRAG COEFFICIENT DUE TO LIFT* ' , F10 .6) 
WRITE ( 6 , 101 ) CDFR(KK, LL ) 
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101 FORMAT (///20X, ’ INCREMENT IN DRAG COEFFICIENT DUE TO FRICTION^ ' , 
&F10.6) 

WRITE (6,102) CDC ( KK , LL ) 

102 FORMAT (///20X, ’ INCREMENT IN DRAG COEFFICINT DUE TO CAMBER= ' , F10 . 6 ) 

WRITE ( 6 , 103 ) CDZ ( KK , LL ) 

103 FORMAT (///20X, 'BASIC DRAG COEFFICIENT= ' , F10 . 6 ) 

WRITE (6,104) CDF (KK , LL ) 

104 FORMAT (///20X, 'TOTAL DRAG COEFFICIENT= ' , F10 . 6) 

88 CONTINUE 


87 CONTINUE 
53 CONTINUE 
J=0 

I F ( NUMACH . EQ . 1 ) GO TO 44 
NUMT = NUMACH 
DO 40 JJ = 1 , NUMACH 
WRITE ( 6 r 852 ) 

852 FORMAT ( ' 1 ’ , 11X , ' * NACA 16,6 SERIES AIRFOIL DATA BANK *',22X, 

&** NACA 16,6 SERIES AIRFOIL DATA BANK *'////) 

WRITE (6,515) ALTUDE , ALTUDE 

515 FORMAT (T20, ’ALTITUDE = ’, F10 . 4 , IX ,' FEET ’, T83 ,’ ALTITUDE = ', 

&F10 . 4 , IX, 'FEET'/) 

WRITE (6, 117) CHORD, CHORD 

117 FORMAT (T23, 'CHORD = ’ , F10 . 6 , IX, ’ FEET ' , T86 , ' CHORD = ', 

&F10 . 6 , IX, ’FEET’/) 

WRITE ( 6 , 701 ) TC , TC , CLD , CLD 

701 FORMAT ( T20, ’ (T/C) MAX * 1 , F 1 0 . 6 , T 8 2 , ' (T/C) MAX = ',F10.6, 

&/ /T25 , ' CLD = ' ,F10.6,T87 , ’CLD = ’,F10.6/) 

WRITE (6,283) ALPHAO , ALPHAO 

283 FORMAT (T21, 'ALPHALO = ', F10 . 6 , IX, ' DEG .', T84 ,’ ALPHALO = ', 

&F10 . 6 , IX, ’DEG. '/) 

WRITE (6,700) M( J+l) ,M(J+2) 

700 FORMAT (T20, 'MACH NO. - ' , F10 . 6 , T83 , ' MACH NO. = ’,F10.6/) 

WRITE (6,729) RN ( J+l ) ,RN(J+2) 

729 FORMAT (T16, 'REYNOLDS NO. = ', E14 . 6 , T7 9 ,' REYNOLDS NO. = ’, 

&E14 . 6 , //) 

IF (MP . EQ . 2 ) GO TO 82 
WRITE (6,555) 

555 FORMAT (T10, ’ALPHA' ,T23, ’ CL ’ , T35 , ' CD ' , T4 5 , ' CL/CD ' , T57 , 'CM (LED) ' 

& , T73 , 'ALPHA' ,T86, ’CL' ,T98, ’CD’ ,T108, ’ CL/CD ’ , T120, * CM (LED) ’/) 

GO TO 83 

82 WRITE (6,556) 

556 FORMAT (T10, ’ALPHA’ ,T23, ’CL’ ,T35, ’CD’ ,T45, ’ CL/CD ’ ,T57, ’CM (1/4) ' 

& , T7 3 , ’ALPHA' ,T86, 'CL ' ,T98, 'CD’ ,T108, * CL/CD’ ,T120, ’CM(l/4) ’ ) 

83 CONTINUE 

DO 41 N - 1 , NUMA L P 

WRITE (6, 600) ANGLE (N) ,CLF( J+1,N) ,CDF(J+1,N) , RLD ( J+l , N ) , CM ( J+l , N ) 
St , ANGLE (N) ,CLF(J+2,N) ,CDF( J + 2,N) , RLD ( J + 2 , N) ,CM( J+2,N) 

600 FORMAT ( 2 ( 5X, F10.6,2X,F10.6,2X,F10.6, 2X, F10.6,2X,F10.6)) 

41 CONTINUE 

J=J J*2 
NUMT = NUMT- 2 

IF ( NUMT . EQ . 0 ) GO TO 33 
IF (NUMT .EQ . 1) GO TO 44 

40 CONTINUE 


44 WRITE (6,589) 

589 FORMAT ('1',39X,'*’,1X,' NACA 16,6 SERIES AIRFOIL DATA BANK’, 
S.1X, ’*’////) 

WRITE (6,214) ALTUDE 

214 FORMAT (Til, ’ALTITUDE = * , F10 . 4 , XX , ’ FEET ’/ ) 

WRITE (6, 33 9) CHORD 
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339 FORMAT (T1 4, 'CHORD * ’ , F10 . 6 , XX, ' FEET ' ) 

WRITE (6,152) TC 

152 FORMAT ( /XI 1, ' (T/C) MAX = *,F10.6/) 

WRITE (6,151) CLD 
151 FORMAT (T16 f ' CLD = ’ ,F10.6/) 

WRITE (6, 888) ALPHAO 
888 FORMAT(T12, 'ALPHALO = * ,F10.6/) 

WRITE (6, 150) M(NUMACH) 

150 FORMAT (Til, 'MACH NO. - ’,F10.6/) 

WRITE ( 6 , 912 ) RN ( NUMACH) 

912 FORMAT ( /T7 , 'REYNOLDS NO. = ’,F10.6//) 

C 

IFCMP.EQ.2) GO TO 84 
WRITE (6, 666) 

666 FORMAT (T10, 'ALPHA' ,T23, ' CL ' , T35 , f CD ' , T4 5 , ’ CL/CD’ ,T57, ’CM (LED) '/) 
GO TO 85 

84 WRITE (6,665) 

665 FORMAT (T10, 'ALPHA' ,T23, ’ CL ’ , T3 5 , ’ CD ' , T4 5 , ’CL/CD' ,T57, 'CM (1/4) '/) 
C 

85 CONTINUE 

DO 66 N=1 , NUMALP 

WRITE(6, 250) ANGLE (N ) , CLF (NUMACH, N) , CDF (NUMACH, N) , RLD (NUMACH , 

&N ) , CM (NUMACH, N) 

250 FORMAT (5X,F10.6,2X,F10.6, 2X, F10.6, 2X,F10.6,2X,F10.6) 

66 CONTINUE 

C 

GO TO 33 

C 

33 WRITE ( 6 , 999 ) 

999 FORMAT ( ' 1 ' ) 

STOP 

END 


SUBROUTINE CLCD ( XM , ALPHA , CL , CD , ICL , ICD , CHORD , XTC , XRN , XCL I , XR 
& , WA, VIS , DEN , CDFRIC , CDLIFT , CDCAMB , CDZERO) 


DIMENSION CDD (6) ,CLIT(6) ,A(6),B(6),C(6),D(6),E(6),F(6),G(6) 
DIMENSION TB(ll) , DMACH(ll) , CDO ( 11 ) , CD01 ( 6 ) ,TB1(6) ,AA(6) ,BB(6) 
DIMENSION CC(6) ,DD(6) ,EE(6),FF(6) 

DOUBLE PRECISION AA, BB , CC , DD , EE , FF 

DATA A/1.325276, .1024011, .2890272, .5288957,1.177606,2.125449/ 

DATA B/-5. 133061, -.097 6595, -.2461832, -.0205697 ,-.2953677 , .197 4199/ 
DATA C/8. 4 12967, -.27 52136, -.8075892, -2. 7 87 4 52, -5. 423342, -11. 9608/ 
DATA D/-7 .325109, .5574539,1.520081,4.335364,8.694619,18.21422/ 

DATA E/3. 522405, -.3924382, -1.018046, -2. 7 61126, -5. 583289, -11. 5047 9/ 
DATA F/-. 8777 567, .1226128, .304 2805, .8093843,1.64 263,3.357388/ 

DATA G/. 087 806, -.01404 59, -.033487 5, -.088 9465, -.1814412, -.3697 504/ 
DATA TB/.031, .0625, . 1, .1375, . 17 5, .2125, .25, .2875, .325, .3625, .4/ 
DATA CD0/0.0, .00025, .00065, .0013, .0022, .0033, .00465, .0061, 

&.0078, .01, .013/ 

DATA DMACH/.9, .84,. 79,. 75,. 72,. 7,. 68, .665, .65, .6375, .62/ 

DATA AA/-5. 834 5277 53, -1.45916514 , 8 . 3327 67 3 , 2 . 60384 7 3 , 10428842 , .2 

&08297 37 4/ 

DATA BB/37 .09086074, 9.58857686,-51.4547602,-16.2479854, .78201755,- 
&1. 2497732/ 

DATA CC/-94. 01887327, -25. 1902339, 126. 24 1026, 40. 198068, -2. 2988001, 2 
&. 94734747/ 

DATA DD/118. 8401952, 33. 12056567, -153. 7367 09, -4 9. 206188, 3. 3320883, - 
&3. 39928973/ 

DATA EE/-7 4. 98024 889, -21. 858250, 92.8384573,29.7250413,-2.3960093, 
&1. 903809351/ 

DATA FF/18. 944 59392, 5. 83350647, -22. 1932814, -7. 0552833, .689991999,- 
&. 408891283/ 

PLAM= (33.+1./3. ) * f XR* ! *2+ ( 8 . + 1 . /3 . ) *XR+17 . 0 
TCMIN=0 . 02 
TCMAX-0 . 30 

IF (XTC . LT . TCMIN ) WRITE(6,21) XTC,TCMIN 
21 FORMAT ( ' ' , 9X, ' T/C = ',F10.6,' IS LESS THAN (T/C)MIN = ’,F10.6, 

&’ FOR THE LIFT CURVE SLOPE'/) 

IF (XTC . GT . TCMAX) WRITE (6, 30) XTC,TCMAX 
30 FORMAT (’ ' , 9X, ’T/C = ' ,F10.6, ' IS GREATER THAN (T/C)MAX * ', 
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S.F10.6,' FOR THE LIFT CURVE SLOPE'/) 

IFCKM.LT. 1.0) GO TO 1 
DCLDA=.0698/SQRT(XM**2-1) 

GO TO 2 

1 IF(ICL.EQ.O) DCLDA= . 1096* ( 1-XTC ) /SQRT ( 1-XTC**2 ) 

IF(ICL.EQ.O) GO TO 2 
DCLDA=.1096/SQRT(1-(XM)**2) 

I F ( ( XM+XTC ) . GE . 1 . 0 ) GO TO 2 

DCLDA= . 1096* (l.-XTC) /SQRT (l-CXM+XTC) **2) 

2 CL=ALPHA*DCLDA 
XRN=DEN*XM*WA*CHORD/VIS 

XRN= 3000 000 . 0 IS THIS SUPPOSE TO BE HERE? WINTER 

IF(ICD.EQ.O) RETURN 
DELTA=CL-XCLI 
XMXT=XM/ ( . 9-XTC ) 

DELCD=(XMXT**2-XMXT~ . 17 65)*(- . 4397*DELTA**2+ . 1173*DELTA- . 0938) 
TESTM=(DELCD-.03)*( . 9-. 875)/( .03-. 08) +.9 
IF ( XMXT . GT . TESTM) GO TO 3 
GO TO 4 

3 SLOPE--117 . 218415*DELTA**6+321.890357*DELTA**5-332.087766*DELTA**4 
&+151 . 8614 153*DELTA**3-24 . 597 998*DELTA**2-2 . 64 51615*DELTA+1 . 4 8 

DELCD=SLOPE*(XMXT-l. 011111) +.0911111 

4 IF(XM.GE.l.O) DELCD=SQRT(XM**2-l)/4 . 

IF(XM.GE.l.O) DELTA=CL 

CLDMX=0 . 8 

IF ( DELTA . GT . CLDMX) WRITE(6,40) DELTA , CLDMX 
40 FORMAT ( ' ' , 9X, ’ (CL-CLD) = ',F10.6,' IS GREATER THAN (CL-CLD)’, 

& ' ( MAX . ) = ' , F10 . 6 , 1 FOR DRAG DUE TO LIFT'/) 

CDLIFT=DELCD*DELTA**2 
IF(CDLIFT.LT.O.O) CDLIFT=0.0 

CDFRIC=2 . 6 5/ SQRT ( XRN ) + ( 100 -PL AM) /100 . *( . 94 4/ ( ALOGIO (XRN) ®*2 .6) -2 .6 
&5/SQRTCXRN) ) 

IF ( XMXT. GT. 1.0) GO TO 8 
DO 5 1=1,6 

CDD ( I ) =A ( I ) *XMXT**6+B ( I ) *XMXT**5+C ( I ) *XMXT**4+D ( I ) *XMXT , **3 + E ( I ) *XM 
&XT**2+F ( I ) *XMXT+G ( I ) 

5 CL IT ( I ) =FLOAT (I)/10.+ .l 
SUM=0 . 0 

DO 7 IX=1 , 6 
S=CDD(IX) 

DO 6 JX=1,6 
IF(JX.EQ.IX) GO TO 6 

S=S*(XCLI-CLIT( JX) )/(CLIT(IX)-CLIT( JX) ) 

6 CONTINUE 
SUM=SUM+S 

7 CONTINUE 
CLDMIN=0 .0 
CLDMAX=0 . 7 

IF <XCLI . LT . CLDMIN ) WRITE(6 P 50) XCLI P CLDMIN 
50 FORMAT (' ' P 9X P ’CLD = ' ,F10.6,’ IS LESS THAN CLDMIN = ’,F10.6, 

&’ FOR DRAG DUE TO CAMBER'/) 

IF (XCLI . GT . CLDMAX) WRITE(6 P 60) XCLI P CLDMAX 
60 FORMAT (’ ',9X P 'CLD = \F10.6,' IS GREATER THAN CLDMAX = \F10.6, 

St’ FOR DRAG DUE TO CAMBER'/) 

CDCAMB=SUM 

I F ( CDCAMB „ GT . 0 . 0 ) GO TO 9 

8 CDCAMB=0 . 0 

9 IFCXM.GE. .95) GO TO 14 
IFCXTC.LE. .03) GO TO 19 
SUM=Q . 0 

DO 11 IX=1,11 
S=CD0( IX) 

DO 10 JX=1,11 

IF(JX.EQ.IX) GO TO 10 

S=S* (XTC-TB (JX))/ (TB(IX)-TB( JX) ) ' 

10 CONTINUE 
SUM=SUM+S 

11 CONTINUE 
CD ZERO-SUM 
SUM=0 . 0 

DO 13 IX=1,11 
S=DMACH( IX) 

DO 12 JX=1,11 

IF ( JX. EQ . IX) GO TO 12 
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S=S* ( XTC-TB (JX))/(TB(IX) -TB ( JX) ) 

12 CONTINUE 
SUM=SUM+S 

13 CONTINUE 
DIVMAC=SUM 

IF(XM.LE .DIVMAC) GO TO 18 
XCBANG= . 7 22 5+ ( XM-DIVMAC ) 

YCHANG=CDZERO-. 0023845 

CDZERO=-37732.79544*XCHANG**5+143059 . 1078*XCHANG**4-216835 . 3262*XC 
&HANG**3+164241.3211*XCHANG**2-62170 .09813*XCHANG+9408 . 610638+YCHAN 
&G 

GO TO 18 

14 DO 15 1=1,6 

CD01 ( I ) =AA ( I ) *XM**5+BB ( I ) *XM**4-<-CC ( I ) *XM"*3+DD ( I ) *XM**2+EE ( I ) "XM+F 
&F ( I ) 

15 TB1 ( I ) =FLOAT ( I ) /100 . 

SUM=0.0 

DO 17 IX=1 , 6 
S=CD01 ( IX) 

DO 16 JX=1 , 6 

IF(JX.EQ.IX) GO TO 16 

S=S* (XTC-TB1 ( JX) ) / (TB1 ( IX) -TBl ( JX) ) 

16 CONTINUE 
5UM=SUM-f-S 

17 CONTINUE 
CDZERO=SUM 

18 IF ( CDZERO . LT . 0 . 0 ) CDZERO=0.0 
GO TO 20 

19 CDZERO=0.0 
TCMIN=0 . 02 
TCMAX=0 . 40 

IF (XTC . LT . TCMIN ) WRITE(6,70) XTC„TCMIN 
70 FORMAT ( 1 ',9X,’T/C = ’ ,F10.6,' IS LESS THAN (T/C)MIN = ’, 

&F10.6,’ FOR THE BASIC DRAG’/) 

I F ( XTC . GT . TCMAX ) WRITE (6, 80) XTC,TCMAX 
80 FORMAT (’ ',9X,’T/C = ',F10.6,' IS GREATER THAN (T/C)MAX = 

&F10.6,' FOR THE BASIC DRAG'/) 

20 CD=CDL IFT+CDFRIC+CDCAMB+CDZERO 

IF(ICL.EQ.O) CD=CDFRIC 
XRN=XRN/ 10000 00 . 


RETURN 

END 




DATA FOR MOMENT COEFFICIENT ABOUT THE QUARTER CHORD 


FUNCTION CMOFF (M, TC , CLF ) 

DIMENSION A(5) ,X(3) ,Y(3) 

REAL M 
C DATA A = MACH NO. 

DATA A/0.3, 0.45, 0.6, 0.7, 0.75/ 

N = 2 
IS=1 

IL-IS+N-1 

IF(M.LE.A(IL) ) GO TO 2 
IL=2 

IS-IL-N+1 

IF (M . GE . A ( IS ) ) GO TO 2 
IS=1 

IL=IS+N-1 

3 IF ( (M— A( IS) ) * (M~A (IL) ) .LE.0.0) GO TO 2 
IS=I L 
IL-IS+N-1 
GO TO 3 

2 DO 4 I = IS , IL 
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J-I-IS+1 
X ( J ) =A ( I ) 

GO TO (30,45,60,70,75) ,1 

DATA 'CM. NO.’: 'CM* = MOMENT COEFFICIENT ABOUT THE QUARTER CHORD 

'.N0.'= CLD*10 AND MACH NUMBER*100 
30 Y ( J ) =CM030 (M, TC , CLF ) 

GO TO 4 

45 Y ( J ) =CM04 5 (M, TC , CLF ) 

GO TO 4 

60 Y ( J ) *CM060 (M, TC , CLF ) 

GO TO 4 

70 Y ( J ) =CM07 0 (M, TC , CLF ) 

GO TO 4 

75 Y ( J ) =CM07 5 (M, TC , CLF ) 

4 CONTINUE 

CM0FF = Y LAGN ( X , Y , N , M) 

RETURN 

END 


FUNCTION CM030(M,TC, CLF) 

DIMENSION T ( 7 ) , CL2 ( 11) , CM2 ( 11 ) , CL6 ( II ) , CM6 ( 11 ) , CL9 ( 11 ) , CM9 ( 11) , 
&CL12 ( 11 ) , CM12 ( 11 ) , CL.15 ( 10 ) , CM15 (10) , CL 21(9) ,CM21(9) ,CL30(5) , 
&CM30 ( 5 ) 

REAL M 

DATA IS FROM NACA TN1546, PP. 57-72, FIG. 7-9 
DATA T = TC = THICKNESS RATIO 

DATA ’ CL . NO . ' : 'CL'=LIFT COEFFICIENT, ' . NO . ’ =THICKNESS RATIO*100 
DATA ’CM. NO. 1 : ' CM ' =MOMENT COEFFICIENT ABOUT THE QUARTER CHORD, 

' .NO. ' =THICKNESS RATIO*100 
DATA T/0. 02, 0.06, 0.09, 0.12, 0.15, 0.21,0 .30/ 

DATA CL2/-0. 1,0. 0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6, 0.7 ,0.8, 0.9/ 

DATA CM2/~ .0135, -.00825, -.01775, -.015, -.007, -.0055, 0.01525, 

002. 0. 0235, -.016, -.04 925/ 

DATA CL6/-0. 1,0. 0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6, 0.7 ,0.8, 0.9/ 

DATA CM6/-. 0135, -.0157 5, -.011, -.0037 5, -.0025, -.007 ,-.00075, 

0012. 0. 011, -.0055, 0.02525/ 

DATA CL9/-0. 1,0. 0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9/ 

DATA CM9/-. 0135, -.005, -.001, 0.003, 0.005, 0.00925, 0.0035, 0.0097 5, 

0006.0. 0085.0.057/ 

DATA CL12/-0. 1,0. 0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9/ 

DATA CM12/0. 003, 0.00925, 0.009, 0.009, 0.017, 0.046, 0.0315, 0.027 5, 

00185.0. 0365.0.063/ 

DATA CL15/0. 0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9/ 

DATA CM15/0. 001, 0.004, 0.0105, 0.039, 0.09, 0.097, 0.061, 0.061, 

007.0. 053/ 

DATA CL21/-0. 1,0. 0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6, 0.7/ 

DATA CM21/0. 005, 0.01125, 0.015, 0.019, 0.094, 0.064, 0.123, 0.204, 
0109/ 

DATA CL30/-0.1,0.0,0.1,0.2,0.3/ 

DATA CM30/-. 022, 0.013, 0.0305, 0.0565, 0.167/ 

CM030=CMTHKF(M,TC,CLF,T,7 , CL2 , CL6 , CL9 , CL12 , CL15 , CL21 , CL30 , CM2 , 
&CM6 , CM 9 , CM12 , CM15 , CM21 , CM30 ,11,11,11,11,10,9,5) 

RETURN 

END 


FUNCTION CM04 5 (M , TC , CLF ) 

DIMENSION T(7) , CL2 ( 11 ) , CM2 (11) ,CL6(11) ,CM6(11) ,CL9(11) ,CM9(U) , 
&CL12(11) , CM12 ( 11 ) , CL 15 ( 10 ) , CM15 (10) ,CL21(9) , CM21 ( 9) ,CL30(5) , 
&CM30 ( 5 ) 

REAL M 

DATA T/0. 02, 0.06, 0.09, 0.12, 0.15, 0.21, 0.30/ 

DATA CL2/-0. 1,0. 0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9/ 

DATA CM2/-. 0035, 0.012, 0.011, -.005, -.006, -.01, -.008, 0.0085, 0.019, 
05, -.03675/ 

DATA CL6/-0. 1,0. 0,0. 1,0. 2, 0.3, 0.4, 0.5 ,0.6, 0.7, 0.8, 0.9/ 

DATA CM6/-. 0117 5, -.003, 0.003, 0.027 5, 0.0, 0.002, 0.00625, 0.0045, 
0012, -.0225, 0.013/ 

DATA CL9/-0. 1,0. 0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9/ 

DATA CM9/-. 0147 5, -.012, 0.0, 0.00625, 0.012, 0.024, 0.02475, 0.02, 

00175,0.01225,0.038/ 
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DATA CL12/- 0.1, 0.0, 0.1, 0.2, 0.3,0. 4,0. 5 f 0.6, 0.7,0. 8,0.9/ 

DATA CM12/-. Oil, 0.012, -.002, 0.005, 0.028, 0.07 4, 0.097, 0.053, 0.047, 

0054.0. 032/ 

DATA CL15/0 .0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9/ 

DATA CM15/0. Oil, 0.006, 0.013, 0.062, 0.112, 0.107, 0.084, 0.0845, 

0084.0. 0785/ 

DATA CL21/-0. 1,0. 0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6, 0.7/ 

DATA CM21/0. 0005, 0.007 5, 0.02, 0.08225, 0.135, 0.085, 0.236, 0.191, 
0158/ 

DATA CL30/-0.1,0.0,0.1,0.2,0.3/ 

DATA CM30/-. 01425, 0.00925, 0.0405, 0.17 9, 0.216/ 

CM045=CMTHKF(M,TC,CLF,T,7,CL2,CL6,CL9,CL12,CL15,CL21,CL30,CM2, 
tCM6,CM9,CM12,CM15,CM21,CM30, 11,11,11,11, 10, 9,5) 

RETURN 

END 


FUNCTION CM060 (M, TC , CLF ) 

DIMENSION T(7) ,CL2(11) , CM2 (11) , CL6 ( 10) , CM6 ( 10) , CL9 ( 11) ,CM9(11) , 
&CL12 ( 10 ) , CM12 ( 10 ) ,CL15(11) , CM15 (11) ,CL21(10) ,CM21(10) ,CL30(4) , 
&CM30 ( 4 ) 

REAL M 

DATA T/0. 02, 0.06, 0.09, 0.12, 0.15, 0.21, 0.30/ 

DATA CL2/-0. 1,0. 0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9/ 

DATA CM2/0. 034, 0.063, 0.004, 0.023, 0.01, 0.004, -.023, -.017 , 

000875, -.0415, -.049/ 

DATA CL6/-0. 1,0. 0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8/ 

DATA CM6/0. 002, -.002, 0.002, 0.004 ,0.008,0.009,0.01,0.01225,0.014, 
0014/ 

DATA CL9/-0. 1,0. 0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9/ 

DATA CM9/-. 0137 5, 0.004, 0.003, 0.006, 0.015, 0.0307 5, 0.046, 0.046, 

0035.0. 053.0.0395/ 

DATA CL12/-0 .1,0. 0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8/ 

DATA CM12/0. 001, 0.0305, 0.02, 0.01 47 5, 0.04 05, 0.08 8, 0.10 8, 0.1005, 

0082.0. 1/ 

DATA CL15/-0. 1,0. 0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9/ 

DATA CM15/0. 032, 0.031, 0.0187 ,0.013,0.0525,0.13625,0.16875, 

01275.0. 11625.0.1225.0.0985/ 

DATA CL21/-0. 1,0. 0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8/ 

DATA CM21/-. 013, -.009, 0.0725, 0.102, 0.0627 5, 0.097 5, 0.284, 0.27 3, 

0239.0. 196/ 

DATA CL30/-0.1,0.0,Q.1,0.2/ 

DATA CM30/- . 033 , - . 028 , 0.142,0. 213/ 

CM060«CMTHKF(M,TC,CLF,T,7 , CL2 , CL6 , CL9 , CL12 , CL15 , CL21 , CL30 , CM2 , 
&CM6 , CM 9 , CM12 , CM15 , CM21 , CM30 ,11,10,11,10,11,10,4) 

RETURN 

END 


FUNCTION CMQ70 (M, TC , CLF) 

DIMENSION T(5) ,CL2(10) , CM2 (10) ,CL6(10) , CM6 ( 10 ) , CL9 ( 10 ) ,CM9(10) , 
&CL12(9) , CM12 ( 9) ,CL15(8) , CM15 ( 8 ) 

DIMENSION CL2K1) ,CL30(1) ,CM21(1) ,CM30(1) 

REAL M 

DATA T/0. 02, 0.06, 0.09, 0.12, 0.15/ 

DATA CL2/-0 .1,0. 0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8/ 

DATA CM2/0. 0145, -.022, -.008, 0.025, 0.038, 0.024, 0.024, 0.004, 

0002, -.026/ 

DATA CL6/-0 .1,0. 0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8/ 

DATA CM6/-. 015, -.008, -.00225, 0.0125, 0.022, 0.024, 0.0255, 0.0255, 

0023.0. 019/ 

DATA CL9/-0. 1,0. 0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8/ 

DATA CM9/-. 02 ,0.004, 0.002, 0.009, 0.012, 0.023, 0.059, 0.0165, 

003375.0. 0485/ 

DATA CL12/-0. 1,0. 0,0. 1,0. 2, 0.3,0 .4, 0.5, 0.6, 0.7/ 

DATA CM12/0. 009, 0.026, 0.031, 0.031, 0.021, 0.0465, 0.03 1,0. 046, 0.073/ 
DATA CL15/0 .0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6, 0.7/ 

DATA CM15/0. 083, 0.02375, 0.0185, 0.037, 0.108, 0.002, -.011, -.027 5/ 
CM07 0=CMTHKF (M , TC ,CLF,T,5,CL2,CL6,CL9,CL12,CL15,CL21,CL30, CM2 , 
&CM6 , CM 9 , CM12 , CM15 , CM21 , CM30 ,10,10,10,9,8,0,0) 

RETURN 

END 
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FUNCTION CM07 5 (M, TC r CLF) 

DIMENSION T ( 3 ) ,CL2(8) , CM2 ( 8 ) , CL6 ( 9 ) , CM6 ( 9 ) ,CL9(8) ,CM9(8) 
DIMENSION CL12 ( 1) , CL15 ( 1) ,CL21(1) , CL30 ( 1 ) , CM12 ( 1) ,CM15(1) , 
&CM2K1) , CM30 ( 1 ) 

REAL M 

DATA T/0. 02, 0.06, 0.09/ 

DATA CL2/-0 .1,0. 0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6/ 

DATA CM2/0. 008, 0.167 5, 0.0425, -.01, 0.0125, 0.02, 0.7, 0.69/ 

DATA CL6/-0 .1,0. 0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6, 0.7/ 

DATA CM6/-. 01125, -.0015, 0.0037 5, 0.014, 0.027, 0.0305, 0.007, 0.012, 
0014/ 

DATA CL9/-0 .1,0. 0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6/ 

DATA CM9/-. 021, 0.0185, 0.04 95, 0.0565, 0.056, 0.0615, 0.052, 0.052/ 
CM07 5 = CMTHKF (M , TC ,CLF,T,3,CL2,CL6,CL9,CL12,CL15,CL21,CL30, CM2 , 
&CM6 , CM9 , CM12 , CM15 , CM21 , CM30 ,8, 9, 8, 0,0, 0,0) 

RETURN 

END 


FUNCTION CM1FF (M,TC,CLF) 

DIMENSION A(5) ,X(3) ,Y(3) 

REAL M 

DATA A/0. 3, 0.4 5, 0.6, 0.7 ,0.75/ 

N = 2 
IS=1 

IL=IS+N-1 

IF(M.LE.A(IL) ) GO TO 2 
I L = 2 

IS~IL-N'+-1 

IF (M.GE . A( IS) ) GO TO 2 
IS=1 

IL=IS+N~1 

3 IF( (M-A(IS) )*(M-A(IL) ) .LE.0.0) GO TO 2 
IS= IL 

IL=IS+N-1 
GO TO 3 

2 DO 4 I=IS, IL 
J=I-IS+1 
X( J)=A( I) 

GO TO (30,45,60,70,75) , I 
30 Y ( J ) =CM130 ( M , TC , CLF ) 

GO TO 4 

45 Y ( J ) =CM145 (M, TC , CLF ) 

GO TO 4 

60 Y ( J ) =CM160 (M , TC , CLF ) 

GO TO 4 

70 Y ( J ) =CM17 0 (M , TC , CLF ) 

GO TO 4 

75 Y ( J ) =CM17 5 (M, TC , CLF ) 

4 CONTINUE 
CM1FF=YLAGN (X, Y , N , M) 

RETURN 

END 


FUNCTION CM130 (M, TC, CLF) 

DIMENSION T( 7 ) , CL2 ( 10 ) , CM2 ( 10 ) , CL6 ( 13 ) ,CM6(13) , CL9 ( 13 ) , CM9 ( 13 ) , 
&CL12(10) , CM12 (10) ,CL15(15) , CM15 ( 15 ) , CL21 ( 5) , CM21 ( 5 ) ,CL30(11) , 
&CM30 ( 11 ) 

REAL M 

DATA T/. 02, .06, .09, .12, .15, .21, .30/ 

DATA CL2/-0. 1,0. 0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8/ 

DATA CM2/-. 03, -.034, -.0406, -.037, -.032, -.027 5, -.02, -.007 5, 

. 005 , - . 025/ 

DATA CL6/-0. 1,0. 0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.55, 0.6, 0.65, 0.7, 0.75, 

08/ 

DATA CM6/-. 03, -.027 5, -.025, -.0225, -.02, -.02, -.017 5, -.015, -.007 5, 
005, -.005, -.008, -.0125/ 

DATA CL9/-0. 1,0.0, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.7 25, 0.75, 
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0775.0. 8/ 

DATA CM9/-. 03, -.0225 ,-.017 5 ,-.015 ,-.0125, -.01, -.01, -.007 5 ,-.005, 
&-. 005, -.001, 0.0, 0.0/ 

DATA CL12/-0. 1,0. 0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8/ 

DATA CM12/-. 023, -.017 5, -.014 4, -.0112, -.005, 0.0115, 0.012, 

0012 . 0 . 01 . 0 . 021 / 

DATA CL15/-0. 1,0. 0,0. 1,0. 2, 0.225, 0.25, 0.27 5, 0.3, 0.35, 0.4, 0.4 25, 

05.0. 6.0.7.0.8/ 

DATA CM15/-. 017 5,- .0125, -.01, -.007 5, -.005, -.0025, 0.0, 0.007 5, 

00225.0. 04.0.0475.0.0475.0.0475.0.045.0.045/ 

DATA CL21/-0.1,0.0,0.1,0.2,0.3/ 

DATA CM21/-. 017 5, -.0025, 0.003, 0.0085 ,0.056/ 

DATA CL30/-0. 1,-0. 05, 0.0, 0.1, 0.15, 0.2, 0.225, 0.25, 0.2625, 0.27 5, 0.3/ 
DATA CM30/-. 017 5, 0.0, 0.0125, 0.027 5, 0.035, 0.05, 0.0625, 0.087 5, 

01175.0. 1325.0.14/ 

CM130=CMTHKF(M,TC,CLF,T,7 , CL2 , CL6 , CL9 , CL12 , CL15 , CL21 , CL30 , CM2 , 
&CM6,CM9,CM12,CM15,CM21,CM30, 10,13,13, 10, 15,5,11) 

RETURN 

END 


FUNCTION CM14 5 (M,TC,CLF) 

DIMENSION T ( 7 ) , CL2 ( 10 ) , CM2 ( 10 ) , CL6 ( 15 ) , CM6 ( 15 ) ,CL9(10) ,CM9(10) , 
&CL12(10) , CM12 ( 10 ) , CL15 ( 16 ) , CM15 ( 16 ) , CL21 ( 5 ) , CM21 ( 5 ) ,CL30(lO) , 
&CM30 ( 10 ) 

REAL M 

DATA T/. 02, .06, .09, .12, .15, .21, .30/ 

DATA CL2/-0. 1,0. 0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6, 0.7 ,0.8/ 

DATA CM2/-. 027 5, -.017 5, -.0225, -.036, -.03 5, -.0325, -.03, -.0225, 
00625, -.05/ 

DATA CL6/-0. 1,-0. 05, 0.0, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.625, 0.67 5, 0.7, 

0725.0. 75.0.8/ 

DATA CM6/-. 033, -.0285, -.025, -.0225, -.021, -.02, -.017 5, -.015, -.013, 
01, -.006, -.005, -.007 5, -.01, -.025/ 

DATA CL9/-0 .1,0. 0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8/ 

DATA CM9/-. 03 5, -.03,- .0225, -.015, -.01, -.0025, 0.0, 0.001, 0.001, 0.0/ 
DATA CL12/-0 .1,0. 0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8/ 

DATA CM12/-. 035, -.025, -.0237 5, -.0165, 0.00125, 0.029, 0.0467 5, 

00295.0. 0265.0.0295/ 

DATA CL15/-0. 1,0. 0,0. 1,0. 2, 0.225, 0.25, 0.27 5, 0.3, 0.325, 0.35, 0.4, 

045.0. 5.0.6.0.7.0.8/ 

DATA CM15/-. 0225, -.02, -.0125, -.005, -.005, 0.0, 0.005, 0.017 5, 0.0325, 

004.0. 0525.0.0575.0.06.0.0625.0.0625.0.0625/ 

DATA CL21/-0.1,0.0,0.1,0.2,0.3/ 

DATA CM21/-. 014 5, -.005, 0.007, 0.047 5, 0.08125/ 

DATA CL30/-0. 1,0. 0,0. 1,0. 15, 0.1625, 0.175, 0.18, 0.185, 0.2, 0.3/ 

DATA CM30/-. 01, 0.0125, 0.037 5, 0.0625, 0.067 5, 0.085, 0.1, 0.14, 

01525.0. 1825/ 

CM145=CMTHKF (M, TC , CLF , T, 7 , CL2 , CL6 , CL9 , CL12 , CL15 , CL21 , CL30 , CM2 , 
&CM6 , CM9 , CM12 , CM15 , CM21 , CM30 ,10,15,10,10,16,5,10) 

RETURN 

END 


FUNCTION CM160 (M, TC , CLF ) 

DIMENSION T ( 7 ) ,CL2(10) , CM2 (10) , CL6 ( 10 ) , CM6 ( 10 ) , CL9 ( 10 ) , CM9 ( 10 ) , 
&CL12(10) , CM12 (10) ,CL15(15) , CM15 ( 15 ) ,CL21(4) ,CM21(4) ,CL30(14) , 
&CM30 ( 14 ) 

REAL M 

DATA T/0. 02, 0.06, 0.09, 0.12, 0.15, 0.21, 0.30/ 

DATA CL2/-0 .1,0. 0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8/ 

DATA CM2/-. 005, -.007, -.025, -.025, -.025, -.0285, -.04, -.035, 

0235, -.0535/ 

DATA CL6/-0 .1,0. 0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8/ 

DATA CM6/-. 03, -0.27 5, -.025, -.0225, -.02 ,-.0175, -.015, -.01, 

0075, -.005/ 

DATA CL9/-0 .1,0.0,0.1,0.2,0.3,0.4,0.5,0.6,0.65,0.7/ 

DATA CM9/-. 039, -.03, -.025, -.02, -.0125, -.0025, 0.009, 0.015, 

0015.0. 0125/ 

DATA CL12/-0 .1,0. 0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8/ 

DATA CM12/-. 035, -.025, -.0237 5, -.0165, 0.00125, 0.029, 0.0467 5, 

0055.0. 05275.0.068/ 
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DATA CL15/-0. 1,0. 0,0. 1,0. 2, 0.25 ,0.27 ,0.3, 0.335, 0.365 ,0.4,0.45, 

05.0. 6.0.7.0.8/ 

DATA CM15/-. 029, -.02, -.015, -.007 5, -.0025, 0.0, 0.015, 0.037 5, 0.05, 

00625.0. 0725.0.08.0.09.0.0925.0.0925/ 

DATA CL21/-0 .1,0. 0,0. 1,0. 2/ 

DATA CM21/-. 023, -.0157 5, -.0335, -.058/ 

DATA CL30/-0. 1,0. 0,0. 03, 0.03, 0.04, 0.05, 0.07, 0.08, 0.09, 0.1, 

0115.0. 125.0.15.0.2/ 

DATA CM30/-. 015, -.01, -.009, 0.04, 0.057 5, 0.067 5, 0.07 5, 0.08, 0.1, 

013.0. 1625.0.1725.0.1825.0.19/ 

CM160=CMTHKF(M,TC,CLF,T,7 , CL2 , CL6 , CL9 , CL12 , CL15 , CL21 , CL30 , CM2 , 
&CM6 , CM9 , CM12 , CM15 , CM21 , CM30 ,10,10,10,10,15,4,14) 

RETURN 

END 


FUNCTION CM17 0 (M, TC , CLF ) 

DIMENSION T ( 5 ) ,CL2(7) ,CM2(7) ,CL6(9) ,CM6(9) ,CL9(11) ,CM9(11) , 
&CL12 ( 6 ) , CM12 ( 6 ) , CL15 ( 10 ) , CM15 ( 10 ) 

DIMENSION CL21(1) ,CL30(1) , CM21 ( 1) , CM30 ( 1) 

REAL M 

DATA T/0. 02, 0.06, 0.09,0. 12, 0.15/ 

DATA CL2/-0. 1,0. 0,0. 1,0. 2, 0.3, 0.4, 0.5/ 

DATA CM2/-. 016, -.037, -.0325, -.02625, -.0187 5, -.0187 5, -.0187 5/ 
DATA CL6/-0 .1,0. 0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6, 0.7/ 

DATA CM6/-. 04, -.035, -.031, -.024, -.018, -.016, -.012, -.012, -.012/ 
DATA CL9/-0. 1,-0. 05, 0.0, 0.1, 0.2 ,0.3, 0.36, 0.4, 0.44, 0.47 2, 0.5/ 
DATA CM9/-. 04 8, -.04, -.034, -.028, -.02, -.016, -.014, -.01, -.006, 
00,0.008/ 

DATA CL12/-0 .1,0. 0,0. 1,0. 2, 0.3, 0.4/ 

DATA CM12/-. 039, -.028, -.0207 5, -.0125, -.0085, 0.0055/ 

DATA CL15/-0. 1,0. 0,0. 1,0. 2, 0.26, 0.3, 0.325, 0.35, 0.37 5, 0.4/ 

DATA CM15/-. 03, -.02, -.012, -.002, 0.0, 0.008, 0.012, 0.018, 0.03, 
0046/ 

CM17 0=CMTHKF (M , TC, CLF,T,5,CL2,CL6,CL9,CL12,CL15,CL21,CL30, CM2 , 
&CM6 , CM 9 , CM12 , CM15 , CM21 , CM30 , 7,9,11,6,10,0,0) 

RETURN 

END 


FUNCTION CM17 5 (M, TC , CLF ) 

DIMENSION T ( 3 ) , CL2 ( 6 ) , CM2 ( 6 ) , CL6 ( 7 ) , CM6 ( 7 ) , CL9 ( 9 ) ,CM9(9) 
DIMENSION CL12 ( 1 ) , CL15 ( 1 ) , CL21 ( 1) , CL30 ( 1) , CM12 ( 1 ) ,CM15(1) , 
&CM21(1) ,CM30(1) 

REAL M 

DATA T/0. 02, 0.06, 0.09/ 

DATA CL2/-0. 1,0.0, 0.1, 0.2, 0.3, 0.4/ 

DATA CM2/-. 0373, -.0383, -.0373, -.0289, -.017 5, -.0061/ 

DATA CL6/-0. 2, -0.1, 0.0, 0.1, 0.2, 0.3, 0.4/ 

DATA CM6/-. 05, -.044, -.037, -.032, -.026, -.02, -.014/ 

DATA CL9/-0. 1,0. 0,0. 05, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6/ 

DATA CM9/-. 04 9, -.036, -.032, -.028, -.024, -.022, -.02, -.02, -.021/ 
CM17 5=CMTHKF (M,TC,CLF,T,3,CL2, CL6 ,CL9,CL12,CL15,CL21, CL30 , CM2 , 
S.CM6 , CM 9 , CM12 , CM15 , CM21 , CM30 , 6, 7, 9, 0,0, 0,0) 

RETURN 

END 


FUNCTION CM3FF (M,TC,CLF) 
DIMENSION A(5) ,X(3) ,Y(3) 

REAL M 

DATA A/0.3,0.45,0.6,0.7,0.75/ 

N=2 

IS-1 

IL=IS+N-1 

IF(M.LE.A(IL) ) GO TO 2 
IL = 2 

IS= IL-N+1 

IF(M.GE.A(IS)) GO TO 2 
IS=1 

IL-IS+N-1 
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IF( (M-A(IS) )*(M~A(IL) ) .LE.0.0) GO TO 2 
IS=IL 
I L= IS+N-1 
GO TO 3 
2 DO 4 I=IS, IL 
J=I~IS+1 
X(J)=A(I) 

GO TO (30,45,60,70,75) ,1 
30 Y ( J ) =CM330 (M , TC, CLF ) 

GO TO 4 

45 Y ( J ) =CM345 (M,TC,CLF) 

GO TO 4 

60 Y ( J ) =CM360 (M , TC, CLF ) 

GO TO 4 

70 Y ( J ) =CM370 (M, TC , CLF ) 

GO TO 4 

75 Y ( J ) *CM37 5 (M , TC , CLF ) 

4 CONTINUE 

CM3FF=YLAGN(X, Y,N,M) 

RETURN 

END 


FUNCTION CM3 30 (M, TC , CLF) 

DIMENSION T ( 6 ) ,CL2(11) , CM2 (11) ,CL6(15) ,CM6(15) ,CL9(13) ,CM9(13) , 
&CL12(15) , CM12 ( 15 ) ,CL15(19) ,CM15(19) ,CL21(16) ,CM21(16) 

DIMENSION CL30 ( 1 ) , CM30 ( 1 ) 

REAL M 

DATA T/0. 02, 0.06, 0.09, 0.12, 0.15, 0.21/ 

DATA CL2/-0. 1,0. 0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6, 0.7 ,0.8, 0.9/ 

DATA CM2/-. 0625, -.08065, -.082, -.07 85, -.0767 5, -.07 125, -.07 85, 

0587 5, -.0587 5, -.0445, -.0625/ 

DATA CL6/-0. 1,0. 0,0. 1,0. 2, 0.3, 0.4, 0.4 5, 0.5, 0.55, 0.6, 0.65, 0.7, 

075,0.8,0.9/ 

DATA CM6/-. 0625, -.06, -.06, -.06, -.057 5, -.055, -.057 5, -.057 5, -.0525, 
05, -.045, -.04, -.035, -.0325, -.03/ 

DATA CL9/-0. 1,0. 0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.5 5, 0.6, 0.65, 0.7, 0.8, 0.9/ 
DATA CM9/-. 0625, -.057 5, -.055, -.0525, -.05, -.05, -.04 25, -.0425, 

04 25, -.04, -.03, -.0225, -.0125/ 

DATA CL12/-0. 1,0. 0,0. 1,0. 2, 0.3, 0.4, 0.425, 0.4 5, 0.5, 0.55, 0.6, 0.7, 

075.0. 8.0.9/ 

DATA CM12/-. 075, -.067 5, -.06, -.0525, -.05, -.047 5, -.047 5, -.04 5, 

0325, -.027 5, -.025, -.017 5, -.015, -.01, 0.0/ 

DATA CL15/0. 0,0. 05, 0.1, 0.2, 0.3, 0.4, 0.4 5, 0.5, 0.517, 0.533, 0.55, 

0567.0. 583.0.6.0.7.0.75.0.8.0.85.0.9/ 

DATA CM15/-. 05, -.05, -.0475, -.04 5, -.04 25, -.035, -.0325, -.025, 

02, -.01, 0.005, 0.007 5, 0.01, 0.01, 0.007 5, 0.005, 0.005, 0.01, 0.0125/ 
DATA CL21/-0. 1,-0. 07 5, 0.0, 0.1, 0.2, 0.3, 0.4, 0.433, 0.467, 0.483, 

05.0. 508.0.517.0.533.0.6.0.7/ 

DATA CM21/-. 0625, -.035, -.03, -.0225, -.015, -.01, 0.0, 0.0, 0.0, 0.015, 

0025.0. 0575.0.07.0.0725.0.065.0.0525/ 

CM330=CMTHKF (M,TC,CLF,T,6,CL2,CL6,CL9,CL12,CL15,CL21,CL30, CM2 , 
&CM6,CM9,CM12,CM15,CM21,CM30, 11, 15,13, 15, 19,16,0) 

RETURN 

END 


FUNCTION CM3 4 5 (M, TC , CLF ) 

DIMENSION T ( 6 ) ,CL2(11) , CM2 ( 11 ) , CL6 ( 12 ) , CM6 ( 12) ,CL9(15) ,CM9(15) , 
&CL12 ( 18 ) , CM12 ( 18 ) ,CL15(20) , CM15 ( 20 ) , CL21 ( 15 ) ,CM21(15) 

DIMENSION CL30 ( 1 ) , CM30 ( 1) 

REAL M 

DATA T/0. 02, 0.06, 0.09, 0.12, 0.15, 0.21/ 

DATA CL2/-0. 1,0. 0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9/ 

DATA CM2/- ,075, -.07, -.077, -.08625, -.08125, -.0755, -.0735, -.069, 
05925, -.05625, -.07/ 

DATA CL6/-0. 1,0. 0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.85, 0.9/ 
DATA CM6/-. 07 5, -.07, -.07, -.0675, -.065, -.0625, -.06, -.0525, -.04 5, 
t-. 04, -.036, -.04/ 

DATA CL9/-0. 1,0. 0,0. 05, 0.1, 0.2, 0.25, 0.3, 0.4, 0.47 5, 0.5, 0.6, 0.7, 

08,0.85,0.9/ 

DATA CM9/-. 07 5, -.07, -.07, -.067 5, -.06, -.055, -.056, -.055, -.0525, 
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05, -.04 ,-.034 ,-.0275, -.025, -.02/ 

DATA CL12/-0. 1,0. 0,0. 1,0. 2, 0.25, 0.3, 0.4, 0.433, 0.467, 0.5, 0.525, 

055.0. 575.0.6.0.7.0.8.0.883.0.9/ 

DATA CM12/-. 0825, -.08, -.067 5, -.06, -.055, -.0525, -.05, -.0525, 

&-. 047 5, -.04, -.034, -.027 5, -.024, -.02, -.015, -.0125, -.01, -.007 5/ 

DATA CL15/0. 0,0. 05, 0.1, 0.125, 0.15, 0.2,0. 3, 0.4, 0.45, 0.47 5, 0.5, 

0525.0. 55.0.567.0.583.0.6.0.7.0.783.0.8.0.9/ 

DATA CM15/-. 077 5, -.065, -.055, -.05, -.0475, -.045, -.0425, -.037 5, 
0325, -.03, -.0225, -.01, -.005, 0.015, 0.017 5, 0.017 5, 0.017 5, 0.02, 

0022.0. 0275/ 

DATA CL21/-0. 1,0. 0,0. 1,0. 2, 0.3, 0.38, 0.4, 0.425, 0.45, 0.47 5, 0.5, 

0525.0. 55.0.6.0.7/ 

DATA CM21/-. 04 25, -.03 ,-.0225, -.0125, -.0025, 0.005, 0.01, 0.025, 0.05, 

0065.0. 075.0.08.0.0825.0.0825.0.0825/ 

CM345=CMTHKF(M,TC,CLF,T, 6,CL2,CL6 ,CL9,CL12,CL15,CL21,CL30 ,CM2, 

S.CM6,CM9,CM12,CM15,CM21,CM30, 11,12,15, 18, 20,15,0) 

RETURN 

END 


FUNCTION CM3 60 (M, TC,CLF) 

DIMENSION T ( 6 ) ,CL2(12) , CM2 (12) ,CL6(15) ,CM6(15) ,CL9(13) ,CM9(13) , 
&CL12 ( 17 ) , CM12 ( 17) ,CL15(22) , CM15 ( 22) ,CL21(17) , CM21 ( 17 ) 

DIMENSION CL30 ( 1 ) , CM30 ( 1 ) 

REAL M 

DATA T/0. 02, 0.06, 0.09, 0.12, 0.15, 0.21/ 

DATA CL2/-0 .1,0. 0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9, 1.0/ 

DATA CM2/-. 082, -.077, -.07 86, -.095, -.095, -.087 5, -.077 5, -.07 37 5, 
&-. 077 5, -.081, -.07, -.122/ 

DATA CL6/-0. 1,0. 0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9, 0.94286, 

097145.0. 9857.1.0/ 

DATA CM6/-. 082, -.08036, -.07 86, -.0768, -.07 5,- .07 14 ,-.067 86, 

&-. 0607, -.0536, -.0464, -.037 5, -.0357, -.0393, -.04286, -.05/ 

DATA CL9/-0. 1,0. 0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.55, 0.6, 0.7, 0.8, 0.9, 1.0/ 
DATA CM9/-. 0893, -.087 5, -.07 86, -.07 14, -.067 86, -.0643, -.0607, 
0571, -.05, -.0339, -.0214, -.0143, -.0089/ 

DATA CL12/-0. 1,0. 0,0. 1,0. 2, 0.25, 0.3, 0.4, 0.47 5, 0.5, 0.55, 0.6, 

065.0. 7.0.75.0.8.0.875.0.9/ 

DATA CM12/-. 107, -.0982, -.0857, -.07 5, -.0714, -.067 86, -.0643, 

&-. 0589, -.0536, -.04286, -.0286, -.017 86, -.007, -.0036, 0.0, 0.00536, 
0007/ 

DATA CL15/-0. 1,0. 0,0. 1,0. 157, 0.17 86, 0.2, 0.2286, 0.3, 0.4, 0.45, 

05.0. 5286.0.557.0.5857.0.6.0.6143.0.65.0.7.0.75.0.8.0.9.1.0/ 

DATA CM15/-. 15, -.1125, -.07 86, -.0589, -.0536, -.05, -.0464, -.0464, 

04 46, -.04286, -.0357, -.02857, -.017 86, 0.0, 0.0143, 0.025,0 .032, 

00357.0. 0357.0.0357.0.0339.0.0286/ 

DATA CL21/-0. 1,0. 0,0. 1,0. 2, 0.3, 0.4, 0.414 3, 0.4357, 0.4 57, 0.47 86, 

05.0. 55.0.6.0.6286.0.7.0.75.0.8/ 

DATA CM21/-. 04286, -.0286, -.0232, -.0143, 0.0, 0.017 86, 0.0286, 

006786.0. 0857.0.09286.0.1.0.107.0.1125.0.1143.0.1125.0.1089, 

01 / 

CM360=CMTHKF (M, TC ,CLF,T,6,CL2,CL6,CL9,CL12,CL15,CL21,CL30, CM2 , 
&CM6 , CM 9 , CM12 , CM15 , CM21 , CM30 ,12,15,13,17,22,17,0) 

RETURN 

END 


FUNCTION CM370(M,TC, CLF ) 

DIMENSION T ( 5 ) , CL2 ( 11) , CM2 ( 11) , CL6 ( 14 ) , CM6 ( 14 ) , CL9 ( 13 ) ,CM9(13) , 
&CL12 ( 9 ) , CM12 ( 9 ) , CL15 ( 11) , CM15 ( 11 ) 

DIMENSION CL21(1),CL30(1), CM21 ( 1) ,CM30(1) 

REAL M 

DATA T/0. 02, 0.06, 0.09, 0.12, 0.15/ 

DATA CL2/-0 .1,0. 0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9/ 

DATA CM2/-. 076, -.07 2, -.087 5 ,-.098, -.095, -.094, -.093, -.086, -.087, 
097, -.0997/ 

DATA CL6/-0. 2, -0.1, 0.0, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.65, 0.7, 0.8, 

085,0.9/ 

DATA CM6/-. 08 958, -.08 958, -.087 5, -.087 5, -.0854, -.0854, -.0833, 
&-.0833,-. 08125, -.08125, -.07 92, -.07 5, -.07 29,- .0667/ 

DATA CL9/-0. 2, -0.1, 0.0, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.7 5, 0.8, 0.9/ 
DATA CM9/-. 1083, -.1042,-.!, -.0875, -.07 92, -.0771, -.075, -.07 5, 
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07 5, -.0667, -.064 58, -.0583, -.04 17/ 

DATA CL12/-0. 1,0. 0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6, 0.7/ 

DATA CM12/-. 1333, -.11458 ,-.0958, -.08125,- .0667 ,-.0625 ,-.0583, 
&-. 0521, -.0417/ 

DATA CL15/0. 0,0. 1,0. 133, 0.167, 0.2, 0.3, 0.4, 0.5 ,0.55,0.6,0.7/ 
DATA CM15/-. 15, -.08125, -.0625, -.05, -.04 58, -.0417, -.04 17, 

04 58, -.047 9, -.047 9, -.05/ 

CM370-CMTHKF (M , TC , CLF , T , 5 , CL2 , CL6 , CL9 , CL12 , CL15 , CL21 , CL30 , CM2 , 
&CM6 , CM 9 , CM12 , CM15 , CM21 , CM30 ,11,14,13,9,11,0,0) 

RETURN 

END 


FUNCTION CM3 7 5 (M , TC , CLF ) 

DIMENSION T ( 3 ) ,CL2(8) ,CM2(8) ,CL6(11) ,CM6(11) , CL 9 (10) ,CM9(10) 
DIMENSION CL12 ( 1) ,CL15(1) ,CL21(1) ,CL30(1) ,CM12(1) ,CM15(1) , 
&CM2K1) , CM30C1) 

REAL M 

DATA T/0. 02, 0.06, 0.09/ 

DATA CL2/-0. 1,0. 0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6/ 

DATA CM2/-. 129, -.1333,-. 11, -.1,-. 1057, -.1062, -.09935, -.1002/ 
DATA CL6/-0. 3, -0.2, -0.1, 0.0, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7/ 

DATA CM6/-. 1083, -.1083, -.1083, -.10625, -.104 2, 097 9, 
0937 5, -.0917, -.0937 5/ 

DATA CL9/-0. 3, -0.2, -0.1, 0.0, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6/ 

DATA CM9/-. 1083, -. 1083, -. 1042, - . 1 , - . 1 , - . 1 , - . 0958, -.0917, 

08958, -.0854/ 

CM3 7 5-CMTHKF (M, TC ,CLF,T,3,CL2,CL6,CL9,CL12,CL15,CL21,CL30, CM2 , 
&CM6,CM9,CM12,CM15,CM21,CM30, 8, 11, 10,0,0,0,0) 

RETURN 

END 


FUNCTION CM5FF (M, TC , CLF ) 

DIMENSION A ( 5 ) ,X(3) , Y(3) 

REAL M 

DATA A/0.3,0.45,0.6,0.7,0.75/ 

N = 2 
IS-1 

IL-IS+N-1 

IF (M . LE . A( IL) ) GO TO 2 
I L=2 

IS=IL-N+1 

IF (M .GE . A( IS) ) GO TO 2 
IS=1 

IL=IS+N-1 

3 IF ( (M-A( IS) ) * (M-A (IL)) .LE.0.0) GO TO 2 
IS=IL 

IL=IS+N-1 
GO TO 3 

2 DO 4 1=IS, IL 
J=I-IS+1 
X ( J ) —h ( I ) 

GO TO (30,45,60,70,75) , I 
30 Y ( J) =CM530 (M , TC , CLF ) 

GO TO 4 

45 Y ( J ) =CM54 5 (M, TC , CLF ) 

GO TO 4 

60 Y ( J ) =CM560 (M , TC , CLF ) 

GO TO 4 

70 Y ( J ) =CM570 (M, TC , CLF) 

GO TO 4 

75 Y ( J ) =CM57 5 (M, TC , CLF) 

4 CONTINUE 
CM5FF=YLAGN (X, Y , N,M) 

RETURN 

END 


FUNCTION CMS 30 (M, TC , CLF ) 

DIMENSION T ( 7 ) ,0.2(11) , CM2 ( 11) ,CL6(16) , CM6 ( 16 ) , CL9 ( 14 ) ,CM9(14) , 
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&CL12 ( 18 ) , CM12 ( 18),CL15(15), CM15 ( 15 ) ,CL21(14) r CM21(14) r CL30(ll) , 
&CM30 ( 11) 

REAL H 

DATA T/0. 02, 0.06,0. 09,0. 12, 0.15,0. 21,0.30/ 

DATA CL2/0 .0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9, 1.0/ 

DATA CM2/-. 106, -.10625, -.1135, -.1135, -.1135, -.1135, -.136, 

&-. 14 95, -.09, -.07 15, -.061/ 

DATA CL6/0. 0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6, 0.625, 0.65, 0.67 5 ,0.7,0.725, 

075.0. 8.0.9.1.0/ 

DATA CM6/-. 10625, -.10625, -.1042, -.1042, -.10625, -.10625, “.10625, 
&-. 10625, -. 1021, -.1,-. 0917, -.0833, -.0771, -.07 5 ,-.0667, -.0625/ 

DATA CL9/0. 0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6, 0.625, 0.67 5, 0.7, 0.7 25, 0.8, 
09,1.0/ 

DATA CM9/-. 1083, -. 10625, -. 1021, - . 1 , - . 1 , - . 1 , - . 0937 5, -.0917, 

&-. 0792, -.07 08, -.0667, -.0625, -.0583, -.054 2/ 

DATA CL12/0. 0,0. 1,0. 2, 0.3, 0.35, 0.4, 0.5, 0.575, 0.6, 0.625, 0.65, 

0675.0. 7.0.75.0.8.0.9.0.95.1.0/ 

DATA CM12/-. 1125, -.1083, -.104 2, -.097 9, -.0937 5, -.0917, -.0917, 

&-. 0896, -.087 5, -.08 54, -.0833, -.07 5, -.07 08, -.05, -.04 58, -.0417, 

&-. 0375, -.03125/ 

DATA CL15/0. 0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.55, 0.6, 0.65, 0.7, 0.7 5, 0.8, 

085.0. 9.1.0/ 

DATA CM15/-. 1167, -.1021, -.0896, -.0833, -.07 92, -.07 29, -.0667 , 

&-. 0604, -.0542, -.0396, -.0292, -.0208, -.0167, -.0146, -.0146/ 

DATA CL21/0. 0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.55, 0.6, 0.65, 0.683, 0.7, 

0717.0. 75.0.8/ 

DATA CM21/-. 057 5, -.055, -.05, -.047 5, -.04 25, -.04, -.03 5, -.027 5, 

&-. 0125, 0.007 5, 0.015, 0.0225, 0.027 5, 0.03/ 

DATA CL30/-0. 1,-0. 05, 0.0, 0.1, 0.2, 0.3, 0.35, 0.4, 0.45, 0.47 5, 0.5/ 
DATA CM30/0. 0,0. 00625, 0.0104, 0.0167, 0.025, 0.0333, 0.037 5, 0.04 17, 

00521.0. 0583.0.0667/ 

CM530=CMTHKF(M,TC,CLF,T,7 , CL2 , CL6 , CL9 , CL12 , CL15 , CL21 , CL30 , CM2 , 
&CM6,CM9,CM12,CM15,CM21,CM30, 11,16, 14, 18, 15, 14, 11) 

RETURN 

END 


FUNCTION CM545(M,TC,CLF) 

DIMENSION T ( 7 ) ,CL2(11) , CM2 (11) ,CL6(15) ,CM6(15) ,CL9(14) ,CM9(14) , 
&CL12 ( 14 ) , CM12 ( 14 ) , CL15 ( 17 ) , CM15 ( 17 ) ,CL21(13) ,CM21(13) ,CL30(9) , 
&CM30 ( 9 ) 

REAL M 

DATA T/0. 02, 0.06, 0.09, 0.12, 0.15, 0.21, 0.30/ 

DATA CL2/0 .0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9, 1.0/ 

DATA CM2/- .1167, -.1146, -.1125, -.116, -.124, -.117, -.13, -.128, 

&-. 104, -.092, -.084/ 

DATA CL6/0. 0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6, 0.6333, 0.67 5, 0.7, 0.75, 

0775.0. 8.0.9.1.0/ 

DATA CM6/~. 1167, -.1146, -.1146, -.1125, -.1125, -.1125, -.1125, 

1104, -.1083,-.!, -.08 96, -.0833, -.07 92 ,-.07 5, -.0667/ 

DATA CL9/0. 0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6, 0.625, 0.675, 0.7, 0.75, 

08.0. 9.1.0/ 

DATA CM9/-.1167 ,-.1146, -.1146, -.1083, -.10625, -.1042, 

&-. 0875, -.08125, -.0667, -.0604, -.0583, -.0521/ 

DATA CL12/0. 0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.55, 0.6, 0.65, 0.7 ,0.75,0.8, 

085.0. 9/ 

DATA CM12/-. 1167, -.1125, -.1083, -.1021,-.!, -.0958, -.0917, -.087 5, 
&-. 07 92, -.0687 5, -.0542, -.0417, -.0333, -.0333/ 

DATA CL15/0. 0,0. 1,0. 2, 0.25, 0.3, 0.4, 0.5, 0.6, 0.6 25, 0.6 5, 0.67 5, 

07.0. 725.0.8.0.9.0.95.1.0/ 

DATA CM15/-. 125, -.1146,-.!, -.0917, -.0854, -.08125, -.07 5, -.0687 5, 
&-. 0667, -.0583, -.05, -.0333, -.025, -.0167, -.00625, 0.0, 0.0/ 

DATA CL21/0. 1,0. 133, 0.2, 0.3, 0.4, 0.5, 0.55, 0.6, 0.625, 0.65, 0.67 5, 

07.0. 8/ 

DATA CM21/-. 06, -.05, -.047 5, -.04 25, -.04, -.0325, -.0225, -.01, 0.0, 

001.0. 025.0.0325.0.0375/ 

DATA CL30/-0. 1,-0. 07 5, -0.05, 0.0, 0.1, 0.2, 0.3, 0.35,0. 4/ 

DATA CM30/0. 0083, 0.0146, 0.0187 5, 0.025, 0.027 1,0. 04 58, 0.05083, 

005125.0. 075/ 

CM545=CMTHKF(M,TC,CLF,T,7,CL2,CL6,CL9,CL12,CL15,CL21,CL30,CM2, 
&CM6 , CM9 , CM12 , CM15 , CM21 , CM30 ,11,15,14,14,17,13,9) 

RETURN 

END 
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FUNCTION CM560(M,TC,CLF) 

DIMENSION T(7) , CL2 ( 10 ) , CM2 (10) , CL6 ( 14 ) , CM6 ( 14 ) , CL9 ( 18 ) , CM9 ( 18 ) r 
&CL12 ( 17 ) , CM12 (17),CL15(19), CM15 ( 19 ) , CL21 ( 13 ) , CM21 ( 13 ) , CL30 (11 ) , 
&CM30 ( 11 ) 

REAL M 

DATA T/0. 02, 0.06, 0.09 ,0.12 ,0.15,0.21,0.30/ 

DATA CL2/0 .0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9/ 

DATA CM2/-. 1065, -.126 ,-.116 ,-.129, -.132, -.13, -.114, -.1245, 

1765, -.084/ 

DATA CL6/-0. 1,-0. 05, 0.0, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.75, 0.8, 

0825.0. 85/ 

DATA CM6/-. 1229, -.1271, -.1292, -.13125, -.13125, -.1292, -.1292, 

&-. 1271, -.125, -.1229, -.1167, -.1083, -.1021, -.0958/ 

DATA CL9/0. 0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6, 0.65, 0.67 5, 0.7, 0.7 25, 0.75, 

0775.0. 8.0.825.0.85.0.875.0.9/ 

DATA CM9/-. 137 5, -.1333, -.13 125, -.12 92, -.1229, -.1208, -.122 9, 

&-. 1229, -.1208, -.1167, -.10625, -.0917 ,-.07 92, -.07 08, -.0625, 

S.-. 05625, -.0521, -.05/ 

DATA CL12/0. 0,0. 1,0. 2, 0.27 5, 0.3, 0.35, 0.4, 0.433, 0.5, 0.55, 0.6, 

0675.0. 7.0.75.0.775.0.8.0.85/ 

DATA CM12/-. 137 5, -.1333, -.125, -.1208, -.1167, -.1125, -.1104, 

&-. 1083, -.10625, -.104 17, -.1021,-.!, -.097 9, -.0833, -.0708, -.0583, 
&- .0417/ 

DATA CL15/0. 0,0. 1,0. 2, 0.225, 0.25, 0.3, 0.325, 0.4, 0.5, 0.6, 0.65, 

0675.0. 7.0.725.0.75.0.775.0.8.0.85.0.9/ 

DATA CM15/-. 15 ,-.137 5, -.125, -.1208, -.1125, -.0917, -.087 5, -.0833, 
&-. 0792, -.07 5, -.0708, -.0687 5, -.06458, -.0542, -.04 17, -.025, 

&-. 0187 5, -.0125, -.0083/ 

DATA CL21/0. 1,0. 2, 0.3, 0.4, 0.45, 0.5, 0.55, 0.6, 0.625, 0.65, 0.7, 0.8, 
09/ 

DATA CM21/-. 054 2, -.05, -.0417 ,-.0354, -.0333, -.025, -.014 58, 

00042.0. 01458.0.0208.0.0271.0.0354.0.0417/ 

DATA CL30/-0. 3, -0.2, -0.1, 0.0, 0.05, 0.1, 0.125, 0.2, 0.25, 0.3, 0.4/ 
DATA CM30/0. 0333, 0.0437 5, 0.0542, 0.0625, 0.0687 5, 0.0833, 0.087 5, 

01 . 0 . 1 . 0 . 1 . 0 . 1021 / 

CM560=CMTHKF(M,TC,CLF,T,7 , CL2 , CL6 , CL9 , CL12 , CL15 , CL21 , C130 , CM2 , 
S.CM6 , CM 9 , CM12 , CM15 , CM21 , CM30 ,10,14,18,17,19,13,11) 

RETURN 

END 


FUNCTION CM570 (M, TC , CLF ) 

DIMENSION T ( 6 ) , CL2 ( 9 ) , CM2 ( 9 ) , CL6 ( 7 ) , CM6 (7 ) , CL9 ( 9 ) , CM9 ( 9 ) ,CL12(9) , 
&CM12 (9) ,CL15(14) , CM15 (14) ,CL21(11) ,CM21(11) 

DIMENSION CL30 ( 1) , CM30 ( 1) 

REAL M 

DATA T/0. 02, 0.06, 0.09, 0.12, 0.15, 0.21/ 

DATA CL2/0 .0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6, 0.7,0. 8/ 

DATA CM2/-. 217 5, -.2, -.101, -.11, -.14 15, -.14, -.14 5, -.146, -.14 4/ 

DATA CL6/0 .2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8/ 

DATA CM6/-. 147 9, -.1458, -.1458, -.14 58, -.14 17, -.14 17 ,-.1375/ 

DATA CL9/0 .0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8/ 

DATA CM9/-. 1583, -.1542, -.1521, -.14 58, -.1437 5, -.1417, -.1354 , 

&- . 1333 -.1292/ 

DATA CL12/0. 0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6, 0.7 ,0.8/ 

DATA CM12/-. 154 2, -.145, -.14, -.127 5, -.117 5, -.117 5, -.117 5, 

&-. 1175, -.115/ 

DATA CL15/0. 0,0. 1,0. 15, 0.17 5, 0.2, 0.225, 0.25, 0.27 5, 0.2917, 0.3, 

04.0. 5.0.6.0.7/ 

DATA CM15/-. 17, -.16, -.155, -.1525, -.15, -.145, -.13, -.11,-.!, -.09, 
St-. 085, -.077 5, -.07 25, -.065/ 

DATA CL21/-0. 2, -0.1, 0.0, 0.025, 0.05, 0.07 5, 0.1, 0.125, 0.17 5, 0.2, 0.3/ 
DATA CM21/-. 04, -.0325, -.025, -.02, -.017 5, -.01, 0.0, 0.01, 0.0225, 

0025.0. 0375/ 

CM570=CMTHKF (M, TC ,CLF,T,6,CL2,CL6,CL9,CL12,CL15,CL21,CL30, CM2 , 
S,CM6 , CM 9 , CM12 , CM15 , CM21 , CM30 ,9,7,9,9,14,11,0) 

RETURN 

END 
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FUNCTION CM57 5 (M, TC , CLF) 

DIMENSION T ( 5 ) ,CL2(8) r CM2 ( 8 ) , CL6 ( 8 ) , CM6 (8) ,CL9(10) r CM9(10) , 
&CL12(9) , CM12 ( 9), CL 15(8), CM15 ( 8 ) 

DIMENSION CL21(1) f CL30(1) ,CM2l(l) ,CM30(1) 

REAL M 

DATA T/0. 02, 0.06, 0.09, 0.12, 0.15/ 

DATA CL2/0 .0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6, 0.7/ 

DATA CM2/0. 318, 0.24625, -.4 565, -.4625, -.633, -.633, -.633, -.524/ 
DATA CL6/0. 2, 0.3, 0.4, 0.5, 0.6, 0.65, 0.7, 0.8/ 

DATA CM6/-. 157 5, -.157 5, -.16 ,-.16, -.16, -.1625, -.165, -.17 25/ 

DATA CL9/0. 0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.55, 0.6, 0.65, 0.7/ 

DATA CM9/-. 07 08, -.0708, -.0667, -.0646, -.0625, -.0625, -.0604, 

&-. 0583, -.0521, -.04 58/ 

DATA CL12/-0. 1,0. 0,0. 1,0. 2, 0.3, 0.4, 0.5, 0.6, 0.7/ 

DATA CM12/-. 16, -.152 5, -.14 5, -.13 5, -.12 5, -.115, -.105,-.!, -.08 5/ 
DATA CL15/-0. 05, 0.0, 0.1, 0.2, 0.3, 0.35, 0.4, 0.5/ 

DATA CM15/-. 0937 5, -.08958, -.07 5, -.0625, -.047 9, -.0417, -.037 5, 
&-.0333/ 

CM575=CMTHKF (M,TC,CLF,T,5,CL2,CL6,CL9,CL12,CL1S,CL21,CL30, CM2 , 
&CM6 , CM9 , CM12 , CM15 , CM21 , CM30 ,8,8,10,9,8,0,0) 

RETURN 

END 


FUNCTION CMTHKF (M, TC , CLF , T , NA , CL1 , CL2 , CL3 , CL4 , CL5 , CL6 , CL7 , CM1 , 
&CM2 , CM3 , CM 4 , CMS , CM6 , CM7 , N1 , N2 , N3 , N4 , N5 , N6 , N7 ) 

DIMENSION T ( 1) , CL1 ( 1 ) , CL2 ( 1 ) ,CL3(1) , CL4 ( 1) , CL5 ( 1 ) , CL6 ( 1 ) ,CL7(1) , 
&CM1(1) , CM2 ( 1 ) , CM3 ( 1) , CM4 ( 1 ) , CM5 ( 1 ) ,CM6(1) , CM7 (1) 

DIMENSION X(2) ,Y(2) 

REAL M 
TCR=TC 

IF (TCR . LE .T( 1) ) TCR=T ( 1 ) 

N-2 

CALL OUT ( NA, N , IS , IL , T , TCR) 

DO 30 I=IS,IL 
X( I-IS+1) -T{ I ) 

GO TO (1, .2,3, 4, 5,6,7) , I 
ANS=GETF (Nl , N , CL1 , CM1 , M , TC , CLF ) 

GO TO 20 

ANS=GETF ( N2 , N , CL2 , CM2 , M , TC , CLF ) 

GO TO 20 

ANS=GETF (N3,N,CL3, CM3 , M , TC , CLF ) 

GO TO 20 

ANS-GETF ( N4 , N , CL 4 , CM4 , M , TC , CLF ) 

GO TO 20 

ANS=GETF ( N 5 , N , CL5 , CM5 , M , TC , CLF ) 

GO TO 20 

ANS~GETF ( N6 , N , CL6 , CM6 , M , TC , CLF ) 

GO TO 20 

ANS=GETF ( N7 , N , CL7 , CM7 , M , TC , CLF ) 

Y ( I-IS+1 ) =ANS 
CONTINUE 

CMTHKF = Y L AGN ( X , Y , N , TCR ) 

RETURN 

END 


FUNCTION GETF (NMAX, N , XCL , YCM, M, TC , CLF ) 
DIMENSION XCL ( 1 ) , YCM(l) ,U(3) , V(3) 

REAL M 

IF (CLF . GT .XCL ( 1) ) GO TO 1 
GETF=YCM( 1 ) 

RETURN 

CALL OUT (NMAX , N , JS , JL , XCL , CLF) 

DO 2 J=JS,JL 
U(J-JS+1) =XCL ( J) 

V ( J- JS+1 ) =YCM ( J) 

CONTINUE 

GETF=YLAGN (U,V,N,CLF) 

RETURN 

END 
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SUBROUTINE OUT (NMAX r N , IS , I L , Y , X) 
DIMENSION Y ( 1 ) 

IS=1 

IL= IS+N-1 

IF(X.LE.Y(IL) ) RETURN 

IL=NMAX 

IS® IL-N+1 

IF (X.GE . Y ( IS) ) RETURN 
IS=1 

1 IL=IS+N-1 

IF ( ( X-Y (IS) ) * ( X-Y ( I L ) ) .LE.0.0) RETURN 

IS=IL 

GO TO 1 

END 


FUNCTION YLAGN(X,Y,N,Z) 

PERFORMS THE LAGRANGE INTERPOLATION 

DIMENSION X(l) , Y ( 1 ) 

SUM=0 . 0 
DO 1 1 = 1, N 
S=1.0 

DO 2 J = 1 , N 
IF(J.EQ.I) GO TO 2 
S=S*(Z-X(J) )/ (X(I)-X(J) ) 

2 CONTINUE 

SUM=SUM+S*Y(I) 

X CONTINUE 
YLAGN=SUM 
RETURN 
END 


END OF DATA INFORMATION 


SUBROUTINE ATMCON ( ALTUDE , TEMP , PRES , DEN , VIS , WA) 

ALTUDE=ALTUDE* .3048 
SLOPE®- . 0065 

TEMP=288 . 16+SL0PE*ALTUDE 
EXP=2. 718281828 
TSEA=288 .16 
PSEA® 101325 . 

PRES1=22700 . 

GRAV=9 . 82 
R=288 . 

POWER=GRAV/(SLOPE*R) 

PRES® PSEA* ( 1/ ( TEMP/TSEA) ) **POWER 
IF ( ALTUDE . LE „ 11000 . ) GO TO 1 

PRES® PRES 1*EXP** ( -GRAV/ (R*216.66) * (ALTUDE- 11000 . ) ) 
TEMP=216 . 66 

1 WA=SQRT(1 . 4*R*TEMP)/ .3048 

TEMP® (TEMP-27 3 .15) *9/5+4 91.67 

VIS®. 35* (TEMP/492. ) **1.5* (690/ (TEMP+198 .))*. 000001 
PRES® PRES *2 11 6 . 2/ PSEA 
DEN® PRES/ ( 1718 . *TEMP ) 

ALTUDE=ALTUDE/ .3048 

RETURN 

END 


SUBROUTINE TEST(TC,MXMACH) 


158 



on o no oooooo 


INTEGER THL 
REAL MMACH ( 4 ) 
REAL MXMACH 


DATA MMACH/0. 845 ,0.770, 0.7 00,0.625/ 


3 5=0.7143 


THL=INT(TC*10) 

DELTHI* TC- (THL/10 . ) 
THL=THL+1 

HXMACH=MMACH ( THL ) -DELTHI *S 

RETURN 

END 

SUBROUTINE AOAT(M, ALTEST, K) 


REAL M 

DIMENSION ALL ( 5 ) 

DATA ALL/18.667,14 .5, 10.4,6.2,2.03/ 

S=“41 . 667 

IF(M.GE.l.O) RETURN 
MM=INT(M*10 . ) -4 
DEL=M~ ( I NT (M*10 . )/10 . ) 

ALTEST=ALL (MM) +DEL*S 

RETURN 

END 

SUBROUTINE N16COR ( L , CHORD , TC , CLD , AREA) 

DIMENSION X( 1 4 ) , YU (14) , YL ( 14 ) ,C1(12) ,C2(12) , C3 ( 12 ) ,C4(12) 

DATA Cl/. 0093, .0158, .02587, .03982, .04861, .05356, . 05516 ,. 05356 , 

&. 04 861, .03982, .02587, .0158/ 

DATA C2/.127 2, .09653, .066, .03473, . 01461 ,. 00394 , 0 . 0 ,. 00447 ,. 01895 , 

6 .044 . . 05961. .05469/ 

DATA C3/. 1504 4, .20911, .28811, .38867, .45144,. 4 87 89,. 5, .4 8622, 

6. 43911. . 34989. .20978. .11789/ 

DATA C4/. 00639, .00574, .0044, .00237, .00103, .00025,0.0, .00025, .001, 

6. 00213. . 00321. .00324/ 

REAL LERAD , IXC , IYC , MY , MX 
IP(L.EQ.O) RETURN 
THICK=TC 

LERAD- . 489*THICK**2/CHORD 
TERAD= . 01*THICK 
SLOPE*. 62234 *CLD 

AREA= .7396*(1+ . 0054 4 *CLD**2 ) *THICK*CHORD 
MY=.3569*(1+. 00458 *CLD**2) *THICK*CHORD**2 

MX*. 03335* (1+ .00 196*CLD**2)*CLD*THICK*CHORD**2+ .017 75* (1+ .1332 *CLD 
W 2)*CLD*THICK**3 

IYC* .04 221* (1+. 01287 *CLD**2 ) *THICK*CH0RD**3 

IXC* .04 476* (1~. 00 182*CLD**2) *THICK**3 *CHORD+ .0000 9358* (1+ ,02013 *CL 
&D**2) *CLD**2*THICK*CHORD**3 
THETA=ATAN (SLOPE ) 

DY1=LERAD*S IN (THETA) 

X(1)=0.0 

YU ( 1 ) =DY1 

YL ( 1 ) *DY1 

X( 2) = . 025*CHORD 

X(3)=2*X(2) 

DO 1 1=1,9 

1 X(I+3)=FL0AT(I)/10*CHORD 
X ( 13 ) = . 95*CHORD 
X( 14 ) =CHORD 
DO 2 1=1,12 

C0M1 = C1 ( I ) *CLD*CHORD+C2 ( I ) *CLD*THICK’ i! ’ te 2/CHORD 
C0M2=C3 ( I ) *THICK+C4 ( I ) *CLD**2*THICK 
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YU(I+1)=2*C0M1 

2 YL(I+1)=COM1-COM2 
DY2=TERAD*S IN ( THETA) 

YU ( 14 ) =DY2 

YL ( 14 ) =0 . 0 
NUMPTS=14 
WRITE ( 6 , 500) 

500 FORMAT( ' 1 ' , 45X , 1 *** NACA-16 AIRFOIL DIMENSIONS ***',//' ' , 

&39X, ’X-COORDINATES ' ,5X, 'Y-COOR UPPER * , 6X , ' Y-COOR LOWER'/) 

DO 3 1=1 , NUMPTS 
X(I)=X( I) /CHORD 
YU ( I ) =YU ( I ) /CHORD 
YL(I)=YL (I)/CHORD 
IF (CLD . NE .0.0) GO TO 3 
YU ( I ) =-YL ( I ) 

3 WRITE ( 6 t 600 ) X ( I ) r YU ( I ) , YL ( I ) 

600 FORMAT ( ' ' , 39X, F10 . 6 , 8X, F10 . 6 , 8X, F10 . 6 ) 

WRITE ( 6 f 7 00 ) THICK, CHORD, AREA 

700 FORMAT ( ’ ' , 5 (/) , 40X, ’ (T/C)MAX' ,7X, ’ CHORD (FT) ' , 8X, ' AREA ( FT**2 ) 1 , 
&/38X,F10.6,6X,F10,6,7X,F10.6) 

WRITE ( 6 , 800 ) IXC, IYC 

800 FORMAT ( ' 5 (/) , 50X, 'MAJOR 12X, 'MINOR /50X, 'MOMENT ’, 11X, 

& 'MOMENT ' , /49X, ' INERTIA ' , 10X, ' INERTIA' , /46X, F10 . 5 , 7X, F10 . 5) 
RETURN 
END 

/ / $DATA 
/ /$STOP 
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Append i x II 

NACA 16-Series Program Case 
I nput/Output 
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6 

REAL 

M( 3 ) 

7 

DATA 

M/ 0.3, 0.5,0. 7/ 

8 

DATA 

ANGLE/0.0,2.0,4.0/ 

9 

DATA 

ALTUDE/0 . / 

10 

DATA 

CHORD/ 1 . 000/ 

11 

DATA 

TC/0.15/ 

12 

DATA 

CLD/ 0.2/ 

13 

DATA 

ICL/1/ 

14 

DATA 

I CD/1/ 

15 

DATA 

X/.50/ 

16 

DATA 

NUMACH/3/ 

17 

DATA 

NUMALP/3/ 

18 

DATA 

IFORM/1/ 

19 

DATA 

MP/1/ 

20 

DATA 

L/l/ 
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*** NACA-16 AIRFOIL DIMENSIONS *** 


X-COORDINATES 

O . OOOOOO 
0.025000 
0.050000 
O. 100000 
0 . 200000 
0 . 300000 
0 . 400000 
0 . 500000 
0 . 600000 
0 . 700000 
0 . 800000 
0 . 900000 
0.950000 
1 . OOOOOO 


Y-COOR UPPER 

0.0001 10 
0.004336 
0.007280 
0.01 1853 
0.018195 
0.022191 
0.024442 
0.025170 
0.024443 
0.022195 
0.018202 
0.01 1848 
0.007249 
O . 000056 


Y-COOR LOWER 

0.0001 10 
-0.003863 
-0.004736 
-0.005607 
-0.006454 
-0.006964 
-0.007295 
-0.007415 
-0.007228 
-0.006469 
-0.004899 
-0.002474 
-0.001098 
O . OOOOOO 


(T/C)MAX CHORD ( FT ) 

O . 040000 1 . OOOOOO 


AREA( FT**2) 
0.029592 


MAJOR 
MOMENT 
INERTIA 
0 . 00000 


MINOR 

MOMENT 

INERTIA 

0.00169 
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# * * LIMITATIONS * * * 



862E14 0- 
089284 0- 
8E 4 2 4 4 o- 

031012' 42 92 4 47470 0 

OOC9Et7'€S 0414400 

0B0£2£'£9 198900 ' 0 

089866 ' 0 
0219290 
0982 4 £ ' 0 

000000 ' P 

000000 ' z 
000000 ' 0 

£90902 ' 0- 
V206n O- 
9 4 9060 ' 0- 

0£t79t?f9E 909020 0 

096601 * 69 980800 0 

09 4 E£9 ' 6 V 0479900' 0 


£6 4 PZL ‘ 0 
9612847 0 
86E4V2 0 

000000 ' P 
000000 ' 2 
000000 ' 0 

(031 )WD 

aa/iD ao 

ID 

VHdIV 

( Q31 ) WD 

QD/ 1 D ao 


ID 

VHdIV 


40 369960S ' 0 

= ON SQ10NA3d 


40 39479126 0 

= 

'ON SQlONASb 


000001 ■ 0 

= ON HDVW 



00009 P ' 0 


ON HDVW 



' 93G 000000' 2- 

= OlVHdIV 



•03Q 000000 2- 

= 

OlVHdIV 



094822 0 

= aio 



094822 0 

= 

Q1D 



0000470 ' 0 

= xvwo/i) 



OOOOVO ' 0 

= 

XVW(D/1) 



1333 000000' 4 

= ObOHD 



1333 OOOGOO'4 

= 

aaoHD 



1333 0000 '0 

= 3aniinv 



1333 0000 0 

= 

3animv 



* XNva viva noddiv S3id3S 9‘94 vdvn * 


* XNV3 VIVO HOddlV S3I83S 9‘94 VDVN * 
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* NACA 16,6 SERIES AIRFOIL DATA BANK * 


ALTITUDE = 
CHORD = 
(T/C)MAX = 
CLD = 
ALPHALO = 
MACH NO. = 


0.0000 FEET 
1.000000 FEET 
0 . 040000 
0.228150 
- 2.000000 
O . 700000 


REYNOLDS NO. = 5.096695 


ALPHA 

CL 

CD 

CL/CD 

CM( LED) 

0 . 000000 

0.312860 

0.005867 

53 . 323080 

-0.112138 

2 . 000000 

0.625720 

0.011710 

53.436300 

-0. 182580 

4 . 000000 

0.938580 

0.044125 

21 .270780 

-0. 173298 




